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EDITORIAL 


Chers HF-istes, 


Voici enfin arrivé votre JPC ! Rien que des informations, 
des programmes, rien que pour votre ordinateur préféré... 


Le Spécial-Sicob est maintenant terminé. Je profite de 
l'occasion pour remercier tous ceux qui ont travaillé 
d’arrache-pied pour que notre présence soit possible. 

EE entre nous, cela en valait la peine: beaucoup 
d'échanges, de rencontres, de contacts fructueux (nous en 
reparlerons...), et... nous sommes maintenant prés de 250 
au Club ! 


Et les vacances arrivent à point pour nous reposer. Je vous 
en souhaite de très bonnes, très fertiles en nouveaux 
programmes que vous nous ferez découvrir dès la rentrée... 


À bientét, 
Fierre 
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JPC 


DIVERS 


PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut étre déjà, FFC PARIS se réunit une 
fois par mois, en plein coeur de Faris. Amenez votre 
matériel, votre bonne volonté et vos idées ! Flus vous en 
apporterez, et plus vous en trouverez chez vos collègues de 
FFC. Ces réunions se déroulent de manière trés libre, aucun 
ordre du jour, discussion ou autre n'étant imposé. Un 
membre du Bureau est toujours présent. Ainsi, si vous 
désirez remettre votre article tout frais au journal, si 
vous avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JFC, ce sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

75010 FARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 215. 
Attention, toutefois, de venir entre 16 et 19 h. 


Four l'accès en métro, trois possibilités s'offrent à vous 

à savoir: 

Métro Strasbourg St Denis: sortie Forte St Martin / Hld St 
Denis, coté pairs. 

Métro République: sortie Bld St Martin, coté pairs. 

Métro J. Bonsergent: Sortie Eld Magenta, coté impairs. 


Ah, j'oubliais: JFC est distribué en avant-première lors 
de ces réunions ... À bon entendeur Salut ! 


La date de la prochaine réunion est: (16h-19h) 
- Le Samedi 7 septembre 1985 
Le centre est ferme durant les vacances scolaires. 


A Hientét... 
Fierre DAVID 
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Franck LEBASTARD 
9672735P43 

Appt. 1260 

1, rue des Verchères 
69120 VAULX EN VELIN 
tél. (7) 880 77 34 


CONPTE-RENDUDE 
REUNIONPPCDELY 
des 27 & 28 avril 1985 


LA 
ON 


AVEZ-VOUS JAMAIS ENTENDU PARLER OU CHANTER 
UNE HP-41 OU UN HP-717 


Voici donc le cospte-rendu de la dernière réunion 
PPC, réunion s’étant déroulée à Lyon les 27 & 28 
avril derniers. Contrairesent à aon espérance, 
cette réunion n’a pas suscité d’entousiasse 
délirant de la part des locaux puisque seulesent 
501 des personnes présentes étaient de la région. 


Etaient présents Yves Alajouanine (T144P15) de 
Lyon (69), Jean-Claude Bornes (92507175) d’Evry 
(91), François Colet (P172) de Saint-Etienne 
(42), Pierre David (P37CHHU6I7) de Paris (75), 
Jean-Jacques Dhénin (1212P177) de Paris (75), 
Alain Farge (P132) de Paris (75), Jean-François 
Garnier (1371) de Grenoble (38), Laurent Istria 
{P3) de Paris (75), Patrick Le Guillou (T472) de 
Lyon (69), André Ménier de Meylan (38), José 
Pidival (T72P23) de Givors (69), Cyril Reigner de 
Toulon (83), Robert Schwartz (1178) de Bondy 
193), et aoi-aêse (9672135P43) de Vaulx en Velin 
(89), Soit 14 sesbres PPC. 


Cosse d'habitude, toutes les nouveautés HP 
étaient présentées, ainsi que le ZENRDX, le 
PANANE pour la 41, le aodule FORTH/assesbleur 
pour le 71, la table traçante 74704 et de 
nosbreuses autres choses que je vais avoir la 
joie de vous présenter. 


Les ordinateurs de poche HP-41, HP-71 et HP-75 


étaient bien entendu en désonstration, ainsi que 
tous les nouveaux périphériques HP fonctionnant 
sur HP-IL, notamsent la nouvelle unité de 
disquette IL ainsi que la Thinkjet. 


De nosbreuses dénonstrations de matériels ont été 
faites, certaines provoquant d’ailleurs 
l’enthousiasse de l’assesblée; à noter la 
désonstration par Jean-Jacques Dhénin du aodule 
PANAME, désonstration qui se tersina par une 
cossande feræe de 5 sodules, chèques à l'appui. 
11 faut dire que cette RON est extraordinaire; si 
vous ne l'avez pas encore, n'hésitez pas à la 
cossander au siège de votre Club, ces fonctions 
ne tarderont pas à envahir tous les prograses. 


Un des aoments forts du week-end à sans 
contestation possible été la présentation par 
Jean-François Garnier de ses prototypes, 
notassent son synthétiseur vocal qui à fait un 
tabac. La question posée en titre de ce cospte 
rendu est à ce sujet tout à fait évocatrice, 
surtout notre réponse. Entendre la 41 ou le 71 
chanter "A la claire fontaine" est je vous 
l'avoue un bien beau spectacle. De aèse, entendre 
la 41 vous annoncer l'heure qu’il est à 
intervalle régulier est tout à fait 
extraordinaire. Jean-François nous à égalesent 
sontré une interface centronics, précisons le, 
entièresent cospatible avec le module panase, 
ainsi qu’un prototype de carte E/S sur HPIL: 


Jean-François GARNIER: 


“- Synthétiseur vocal HPIL. Ce synthétiseur est 
basé sur une réalisation décrite dans 
Micro-Systèse il y a quelques tesps et interfacée 
HPIL par Je convertisseur HPIL. La cossande du 
synthétiseur s'effectue par l'envoi de chaînes 
d'octets (1 à 34). La vitesse et la hauteur du 
son sont prograssables, ce qui perst au 
synthétiseur de chanter. ce satériel est une 
réalisation personnelle; devant l'intérêt suscité 
parai les eesbres présents, j'envisage d’en 
fabriquer une version plus cospacte avec 
interface HPIL intégrée. 


- Interface centronics cospatible graphique HP-6L 
Conception JF GARNIER, fabrication KRISTAL). 
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Cette interface travaille en deux modes 
sélectionnés par logiciel: 

- sode  iaprisante: cospatible avec toutes 
isprisantes Centronics. Avantages: séaoire 
taspon 1,5kKo (possibilité de 15,5K0), reconnue 
cosse iaprisante. 

- sode graphique HP-6L: destiné à la C6P115 de 
Tandy (versions possibles pour d’autres tables 
trançantes). Reconnue cosse  PLOTIER, 
entièresent compatible avec le aodule PLOTTER. 
Avantage: sisplicité de prograssation pour les 
tracés de courbes, histograsses, etc... Prix 
de l’ordre de 4000FF. 


- Prototype de carte E/S HPIL (Entrées-Sorties). 
Cette carte possède jusqu’à 62 lignes d’E/S 
prograssées individuellement en entrées ou en 
sorties. Des cossandes peraettent de lire/écrire 
les lignes par port de 8 bits ou de les sanipuler 
individuellesent, Le but est de settre à la 
disposition du prograsseur le contrôle cosplet de 
PIO (Peripheral Input Output) avec possibilités 
d'exploiter les aodes d’"handshake" autosatique 
ou de tisers internes. Applications: interfaçage 
de convertisseur  nusérique/analogique et 
réciproqueent, cossande de transistors de 
puissance, triacs, etc... Notice d'application en 
préparation (sera fournie avec la carte)." 


Jean-François GARNIER (1371) 


A égalesent été aontré par Jean-Claude BORNES la 
nouvelle interface HPIL pour IBM PC. Cette 
interface, de l'avis atse de Jean-Claude, est 
bien décevante, surtout au niveau du logiciel qui 
est fourni avec. Telle qu’elle est fournie 
actuellement par HP, elle ne peraet à 1’IBN que 
de fonctionner en aode autonatique, pas de aode 
sänuel donc cosparable au sodule IL de 1'HP4I, et 
donc peu de possibilité d'utilisation; quand 
1'IBX se comporte en périphérique, aëse chose, 
guère de possibilités, peu d’intérèts... pour 
l'instant, car, n’en doutez pas, dJean-claude 
travaille dessus ! 


Autresent plus intéressant, est l’autre appareil 
dont il nous a fait la désonstration et dont il 
est le concepteur, autresent dit l’interface 
peraettant de relier 1l’HP41 ou l’HP7I à un 
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sinitel via la boucle MHPIL, et de s’en servir 
cosse vidéo, ou sieux comme aodes, sais laissons 
le plutôt lui-aêse nous parler de son oeuvre: 
Jean-Claude BORNES: “Interface HPIL-MINITEL 
Cette interface peraet de connecter un sinitel 
sur une boucle HPIL, persettant d'utiliser les 
constituants du ainitel par le contréleur de la 
boucle. 


L'écran peut être utilisé, par exeaple par une 
HP41 en tant qu’interface vidéo, pour un budget 
bien inférieur à celui nécessaire avec les 
solutions HP. 


Un autre constituant iaportant du ainitel, est 
son sodes. Ce constituant du sinitel perset 
d'envoyer des inforsations sur la ligne 
téléphonique. 11 est donc possible, par exesple 
de consulter de façon autosatique une banque de 
données. Vu la vitesse de la 41, il ne faut pas 
compter enregistrer les pages reçues. Avec un 
calculateur plus rapide, 71 par exeaple, cette 
application est envisageable. 


Une autre application très intéressante pour nous 
sesbres PPC, est la cossunication entre deux 
calculateurs pour la transsission de progrannes 
ou de données. 


Au cours de la réunion de Bretagne, la preaière 
application (aoniteur vidéo pour la 41 ou 
visualisation pou une 71 par PRINIER 15) à été 
aontrée. En ce qui concerne la 41, tous les 
ordres non graphiques sont valables, la 41 étant 
en sode MANIO. 


Au cours de cette réunion de Lyon, une deuxièae 
interface était disponible, peraettant de aontrer 
les autres applications, deux sinitels étant 
reliés ensesbles. Aprés retournesent du presier 
ainitel par envoi d’un code spécifique, la 
pression des touches de connexion peraet 
d'établir la comaunication. À partir de cet 
instant, les chaînes de caractères envoyées par 
ACA, PRA, OUTA ou PRINT sont transaises par 
l’intersédiaire de la ligne téléphonique à 
l’autre sinitel et à l’autre calculateur. Un 
listing de programme envoyé par un calculateur 





sera visualisé sur l'autre sintel, pouvant être 
récupéré par l’autre calculateur. En ce qui 
concerne les affichages, les ainitels sont 
reconfigurables à volonté. Du aode défaut écho 
vrai (est affiché à l'écran ce qui vient de la 
ligne téléphonique) on peut configurer en écho 
local (ce qui vient du clavier ou du calculateur 
“local” est affiché à l'écran). 


L'autre application ‘qui à été utilisée au cours 
de cette réunion, est la transaission de 
programses entre deux 41 munies du sodule 
Extended 10. La 41 réceptrice (ainitel non 
retourné) exécute la fonction INP et la 41 
ésettrice exécute OUTP. La transaission de lots 
isportants de données ne peut cependant se faire 
que depuis le ainitel retourné vers le sinitel 
non retourné, des données étant perdues dans 
l’autre. direction du fait que la vitesse n’est 
que de 75 bauds, 


Dans l’état actuel, cette interface perset donc 
de disposer, en plus d’une interface video (non 
graphique du fait des caractéristiques du 
ainitel)  éconosique, de la possibilité de 
cossunication.* 


Jean-Claude BURNES (1175) 


Un autre périphérique IL était présent à cette 
réunion, il s’agit de l'interface vidéo PAC 
SCREEN, consercialisée par les Editions du 
Cagire, interface se cosportant dans la boucle 
autant come vidéo que cose table traçante. 
Cette serveilleuse petite chose répond aussi bien 
aux ordres du plotter qu'aux ordres vidéo 
habituels, en particulier aux consandes du sodule 
Panase, ce qui assure à son utilisateur un 
contrôle extrésent puissant de son soniteur. 
C'était Robert SCHMARTZ qui nous en faisait la 
désonstration: 
Robert SCHNARTZ: “Vidéo PAC SCREEN 
L'interface PAC SCREEN est un boitier 160x90:30 
alisenté par une alisentation 9,5V, 800sû qui se 
relie à un soniteur vidéo. 


11 contient en fait deux appareils utilisant le 


ste nomteur VIDEO et la aêne entrée HPIL: une 
interface pour le texte offrant 24 lignes de 80 
fou 40) colonnes, et une interface graphique 
traçant des dessins de la aèse façon qu’une table 
traçante, à l'aide d’un sous ensesble du langage 
graphique HP (HP-6L), 


L'interface ‘texte’ offre deux forses de curseur 
et les caractères soulignés sur trois pages 
accessibles par  dérouleæent. L'interface 
graphique offre une résolution de 840x250 pixels. 


De plus, l'interface possède une sortie 
Centronics pour isprisante qui perset une copie 
d'écran "texte" ou “dessin”. 


Une partie des fonction du sodule Plotter est 
reconnue par l'interface en aode dessin” et 
toutes les fonctions vidéo du sodule Paname sont 
utilisables. * 


Robert SCHWARTZ (1178) 


Les autres interventions intéressantes étaient 
des exposés. Yves ALAJOUANINE nous présenta par 
exeaple son dernier Jogiciel pour HP4] "Saisie 
des observations de Toposétrie Moderne’ (STDN), 
logiciel professionnel destiné à saisir et 
traiter sur Je terrain les inforsations 
toponétriques: 


Yves ALAJOUANINE: * 


Le progranse de "Saisie des Observations de 
Toposétrie aoderne" à fait ]’objet d’un exposé 
par Yves Alajouanine, le 27 avril 1985 pendant 
les deux jours de la réunion régionale PPC 
organisée par Franck Lebastard, au "Centre 
International de Séjour de Lyon”. 


Le calculateur HP4ICV ou CX est utilisé de 
préférence, cospte tenu de l’existance dans le 
comserce de l'interface KERN DIF 41 transférant 
les sesures d’un théodolite  inforsatisé 
directesent dans les aéaoires HP4{ pour faire un 
enregistresent avec ou sans traitement en tesps 
réel. de aëse, les Ets AGA GEOTRONICS vendent le 
GEODAT 126 pour la saisie et les calculs sur le 
terrain: c’est le boitier contenant un HP41CX 
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pouvant enregistrer sur 2000 séavires avec sortie 
WPIL et RS-232C. 


Le logiciel STDN utilise 71 sésoires de données 
et 1730 octets, et une routine secondaire finale 
M", Celle-ci reste fixe pour la saisie sans 
calcul; sais s’il y à calcul des XY2, elle 
replace une routine d'application qui est 
appelée en silieu de traitesent grâce à un codage 
de 3 chiffres, CDU accolé à droite du nuséro 
satricule du point levé. L'élaboration des 
routines d'application utilise les fonctions 
d'édition de la routine finale "A tersinent 
ensuite le traitement. 


Le prograss de ‘saisie des Observations de 
Toposétrie Moderne” pour "Logiciel de Tracé 
Autosatique Direct” est composé sur un 
calculateur de poche HP4ICX (ou par défaut un 
eodèle HP4ICV avec X-FUNCTIONS) en utilisant une 
iaprisante thersique HPB21628 sur une boucle HPIL 
pour éditer le listage du programse. Celui-ci est 
accospagné de comsentaires édités en traitesent 
de texte ST36 sur ordinateur Sanyo NBC-1250. 


L'équipesent ainiaua du calculateur HP4ICV 
desande L’adjonction dans le port 1 d’un sodule 
HP82180A de 127 registres d’extention de séacire 
pour l'étude scolaire du logiciel SOTM. De 
préférence, il faut placer en plus 2 sodules 
HPB2181A de 238 registres chacun dans les ports 2 
et 3 des HP4ICV ou CI. 


L’atilisation professionnelle a besoin de la 
boucle HPIL avec l'unité de cassettes HPB2161A. 
L'alisentation sodifiée de celle-ci est donnée 
par Ja batterie ŒCaNi 6 ou 12 volts du 
distancesètre, Les 603 registres contiennent les 
routines d'application du logiciel SOTM. La 
saisie avec ou sans calcul des XYZ dure 25 ou 5 
secondes respectivesent et la capacité de 131072 
octets permet l’enregistresent de 1800 points. 


Si le géosètre souhaite enregistrer sans avoir de 
cordon de liaison, il peut installer un 
calculateur HP4ICX connecté par son port 4 dans 
l'appareil GEODAT 12 AGA qui peut enregistrer 500 
à 1000 points. 


Le aatériel professionnel le plus compact utilise 
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le calculateur HP4ICI 1525 registres, accéléré 
x1,5 par M. J. Vaucelle, avec 4 batteries CaN: de 
150 sA  linterchangeables avec 4  élésents 
présentés avec un chargeur indépendant), Réalisé 
pour HP4ICI 1525 , de aodule CI603C-V sert 
de réserve de fichiers, données ou logiciel en le 
plaçant en port 1, et pour l’enregistresent 
fiable d'environ 60 en port 3 lavant de 
l’échanger avec un autre sodule disponible), pour 
obtenir une saisie illisitée et sûre: ces aodules 
gardent l’inforsation 10h, avant de recharger en 
105 Jeur condensateur dans le calculateur et ne 
sont pas affectés en port 3 par l’affichage 
MEMORY LOST du HP4ICX. Réalisés et difusés par M. 
Jacques Vaucelle, La Chasserie, 35133 Rosagné, 
ces sodules regroupent un sodule HP82180À et deux 
sodules HP82181A. Le transfert sur cassette des 
données se fait avec une unité HPB2181A modifiée 
pour être alisentée par l'alluse-cigare d’un 
véhicule.® 


Yves ALAJOUANINE (T144P15) 


Deux autres exposés parai les plus appréciés ont 
été l'oeuvre de Jean-Jacques Dhénin et de Pierre 
David. 


Jean-Jacques nous à expliqué le pourquoi et le 
comment des Poll Handlers sur 1’HP41 et l’HP71. 
1 est toujours très intéressant quand on fait de 
l’assesbleur (du sicrocode) de pouvoir reprendre 
la sain tandis que le pointeur est dans les 
routines internes de la sachine. 


Par exeaple, sur la HP41, de l'adresse FF4 à 
l'adresse FFA se trouvent ces 7 adresses très 
iaortantes que sont les Poll Handlers. Ces 
adresses sont interrogées par un Fetch dans de 
très nosbreux points des routines internes de la 
sachine et qui persettent de reprendre la sain 
tandis que le calculateur travaille. En effet, si 
ces adresses contiennent yn 0, le prograase 
interrogateur continue sans s’en préoccuper, 
sinôn il se branche à celle qui est non nulle; 
elle contient toujours un JNC 4-.., ce qui est un 
saut relatif et perset de placer le pointeur au 
début d’un prograsee déterainé. 





L'adresse est interrogée lors de: 


FF4 Pause, 

FFS Après chaque ligne de programme, 
FF6 Au réveil de sosmeil profond, 
FF7 Lors de la fonction OFF, 

FF8 Si le flag E/S système est levé, 
FF9 Allusage par pression sur ON, 
FFA Départ à froid (NEMORY LOST) 


{cf "Au fond de la HP41" de J.D, DODIN) 


Pierre nous à fait un exposé sur le Forth en 
général qu’il a ensuite appliqué au HP71. Il a 
fait cosprendre à ceux qui ne connaissaient pas 
ce langage toute sa puissance, sa vitesse, ses 
atouts, son concept. Il nous a sontré, à nous, 
“dingues" de la 41, que le Forth était bien un 
langage RPN, cosse celui de notre machine, sais 
en beaucoup plus puissant: cosse sur la 4, une 
pile, sais infinie celle-là; une pile de retour 
de sous-programme, également infinie ! coae sur 
la 41, des XEG, sais là, pas de distinction entre 
les routines utilisateur et les fonctions, les 
routines utilisateur étant elle-atse cospilées et 
devenant ainsi de nouvelles fonctions. Bref, il 
nous à fait envie, et si personne en l’écoutant 
n'a songé à lacher sa 41, tout le sonde s’est 
tout de sème mis à réver d’une super 41 qui peu à 
peu s'était sise à prendre sérieusement des 
allures de HP7I... Gageons que beaucoup 
achèteront bientôt la grande soeur... 


Enfin a été annoncée à cette réunion la création 
par noi-aèse ainsi que par Jean-Claude Bornes, 
Georges-Noël Nicolas et Bruno Trédez du club 
GUIC, Groupe des Utilisateurs de 1l’IBX PC et 
Cospatibles. Ce club, destiné aux utilisateurs de 
1°IBA PC, du Sanyo 590 et autres compatibles, a 
la volonté d’être du type de PPC dont il a 
d'ailleurs adopté les statuts à quelques 
différences près. Cosne lui, nous allons éditer 
un journal qui paraîtra tous les deux sois, et 
qui sera l'oeuvre de ses adhérents. Je peux vous 
annoncer que nous avons déjà obtenu des prix 
intéressants sur du logiciel et sur du satériel, 
notaasent sur la sésoire, Ne contacter pour 
renseignesents. 


Voilà, je vous ai raconté l'essentiel; 
l'essentiel à ses yeux naturellement, car je 
n'étais pas de toutes les conversations. Je n’ai 
pas pû être au courant de toutes les astuces qui 
se sont échangées, je n’ai pas pà voir toutes les 
déaonstrations, je n’ai pas pè voir tous les 
prograsses tourner. Mais rassurez vous pour a0i, 
il aurait fallu à chacun beaucoup plus de deux 
jours pour sontrer tout ce qu’il avait à aontrer, 
pour raconter ses difficultés, la sanière avec 
laquelle il les avait résolu et surtout recevoir 
des autres tout ce qu’ils avaient à donner. 


En plus de tout ce que j’ai vu, je retiendrai 
l’asbiance extraordinaire qui y régna cons à 
l'accoutuée d’ailleurs, mélange de joie de la 
découverte, d'étonnements parfois, d’asitié 
surtout. Car c'était bien sûr une sorte de 
réunion de fasille, une réunion de aesbres de PPC, 


Resercions pour finir le CISL (Centre 
International de Séjour de Lyon) qui nous a 
persis de nous réunir dans de bonnes conditions, 
très bonnes aëse, puisqu'il nous a offert, sur 
place ou à proxisité, une excellente salle de 
réunion, le couvert et l’hébergesent, Il ne 
serait quère étonnant que la prochaine rencontre 
sur Lyon s'effectue sur les lieux de cette 
première... prochaine qui, cela dit entre nous, 
serait prévue pour le presier week-end 
d'octobre... Mais, aotus, hein! Ce n’est qu’une 
confidence de vous à soi... 


À la prochaine, donc 


Heureuse Prograssation 


Franck LEBASTARD 
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NOUS EN AVONS 


Sont en vente au Club: 


- Cartes sagnétiques pour HP41 au prix de 150FF + 3,10FF de port les 50 cartes; 
- Cartes sagnétiques pour HP71B au prix de 71FF + 3,10FF de port les 10 cartes; 
- Cassettes digitales pour HP821614: 105 FF pièce, plus 3,10 FF de port par cassette, 
- Eprons (2718 % 2732) vierges au prix de 60FF + 3,10FF de port pièce. Pour les Epross 
programsées, nous consulter; 
- Module TIME (82182A) au prix de 400FF + 6,50FF de port. Livré avec manuel en français; 
- Module GUADRAN (82170A) au prix de 400FF + 6,S0FF de port; 
- Module HPIL (821604) au prix de 970FF + 6,50FF de port. Livré avec manuel en français; 
- Pour les commandes des ZENROM, CCDRON et ROM PANAME nous envoyer S00FF siniaus d’arrhes; 
— VASX (listing en anglais des 3 presières pages de la 41) au prix de 170FF + 13,50FF de port; 
- Le sanuel de service de la 41 (en anglais) au prix de 50FF + 6,S0FF de port; 
- Le sanuel technique du convertisseur (en anglais) au prix de 20FF + 3,20FF de port; 
- HPIL Interface Specifications (en anglais) au prix de 80 FF + 9,50 FF de port 
— The HFIL Integrated Circuit User’s manual (en anglais): 40 FF + 8,50 FF de port 
- Interface Kit Technical Guide (en anglais): 19 FF + 3,50 FF de port 
— Manuel technique du Minitel R (Ref. 250 Alcatel): 40 FF + 6,50 FF de port 
- Les anciens nuséros au prix de: 
No à 3 au prix de 15FF + 3,20FF de port par numéro, 
No 4 à 10 au prix de 20FF + 3,20FF de port par nuséro, 
No 11 à 17 au prix de 25FF + 6,50FF de port par nuséro, 
à partir du No 18 au prix de 35FF + 6,50FF de port par nuséro. 


Les ports sont les tarifs PTIT actuels en non urgent. 


ACHATS GROUPES 


Nous assurons des cossandes groupées pour ceux qui désirent profiter de notre réduction 
“spécial Club", soit 252 par rapport au prix HP. Pour ceux qui le désirent, nous assurons 
l'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des sodules que des 
calculatrices et autres. 


NOTA: ces deux rubriques “nous en avons” et “achats groupés”, sont des services "Club" que nous 
rendons exclusivesent aux aeabres effectivesent inscrits au club et possédant leur carte de 
mesbre PPC-PARIS. 
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IL ETAIT UNE FOIS LE SICOB 


Depuis le succès de notre présence au Sicob 
l’année dernière, nous nous étions prosis de 
recoasencer cette année. C’est saintenant chose 
faite. Et nous pensons déjà à l’année prochaine ! 


Nous avions décidé de préparer longtesps à 
l'avance une aniaation pour ce stand, 

Bien évidesaent, deux sesaines avant, rien 
n’était prévu. 

Ce n’est pas de la négligence de notre part, aais 
un excès de travail. Le journal que vous avez 
entre les mains à encore desandé beaucoup d'huile 
de coude ! 


HP nous à prété trois interfaces vidéo, (avec 
leur aoniteur cette fois-ci...), deux HP7IE avec 
modules HPIL et Forth/Assesbleur, et un lecteur de 
disquettes. 

Ultérieurenent, nous avons eû une HP4ICX, un 
lecteur de cassettes, et une table traçante dont 
nous reparlerons bientôt. 


La Règle à Calcul nous a prêté un HP7IB avec 
sodule HPIL, et un aodule méaoire 4Ko, 


Nous avions pris un stand de 18a2 (6x3). 
PPC-Toulouse, en la personne de J.F. Sibille 
était représenté. 


Nous étions quatre pour aménager le stand, le 
samedi précédant l'ouverture. Six heures de 
travail continu, et nous avons fini juste à teaps 
pour être Jlégèresent en retard à la réunion du 4 
sai. Nous sommes revenus le Jlendesain pour 
fignoler quelques détails. 


Trois programmes tournaient en persanence sur le 
stand: 

En presier lieu, un prograsse écrit par Philippe 
Guez, aontrant les possibilités de l'interface 
sinitel de Lionel Ancelet en tant que soniteur 
vidéo. 

Ensuite, un prograsse collectif: Pierre Colignon, 
ainsi que Seniak Nitsan ont concocté un prograsse 
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de traduction d'expressions en notation 
traditionnelles (avec des parenthèses) vers la 
notation RPN. Eric Gengoux a fait un progranne 
qui fait défiler un T6V sur l’écran du HP71B, de 
suis intervenu pour réunir le tout, faire la 
présentation et l’introduction des foraules au 
clavier, L’habillage, en quelque sorte... 
Finalement, j'ai rédigé un petit prograsme qui 
controlait deux interfaces vidéo: il affichait 
14 (8+6) pages d’inforsations sur les deux Clubs. 
En plus, il gérait le défilement d’un petit train 
sur l’afficheur du HP7IB (l’idée vient du TGV de 
Eric...). Ce prograsse sontrait les capacités 
“aulti-tôches" du HP71, qui controlait le tout 
sisultanésent, sans oublier quelqu'un en cours de 
route... 

Christian Baquet, pour sa part, présentait au 
public son interface analogique/digitale HPIL, en 
déaonstration avec un HP7IB, 


Le stand était comme suit: 


“V* représente les Vidéos. En plus, sur le coin 





de l’arsoire était placé le sinitel, ainsi qu’une 
sagnifique affiche de Einstein, en carton rigide. 
Le HP7{ controlant le sinitel était à l’abri des 
regards let surtout des mains) indiscrets... 


Ce "plan" est à l'échelle dans la lisite de la 
précision de la HP82905B#HP71B qui ieprise la 
saquette de ce journal... 


Il ya eu, toute la sesaine, une aobilisation des 
adhérents du Club pur venir tenir le stand. 


Nous nm’étions guère loin du stand HP. 11 était 
juste à peine plus beau que le notre (!!!), 

Ce fut l’occasion de contacts fructueux avec les 
gens d’HPFrance. Après deux à trois années 
d'existence, on commence à s’interesser à nous. 
Tant sieux, Peut-être un jour arriverons-nous aux 
53,7% de réduction annoncés dans le nuséro du ler 
avril, Qui sait ? 

Plus sérieusement, ce genre de contacts peut 
déboucher sur des réalités encore inisaginables. 
Nous vous tiendrons bien sûr inforsés. 


HP présentait sur son stand l'interface vidéo 
graphique dont je vous parlais dans le No22 
MarsB5). Hélas, dès le deuxièse jour, elle était 
volée. Alors, nous avons prêté à HP la table 
traçante qui nous avait été prétée. Solidarité, 
solidarité... 


Le déménagement s’est fait dans la précipitation, 
l'organisation du Sicob feraant toutes les issues 
afin d'éviter les vols. Attitude cospréhensible, 
aais bien esbétante pour quelques pauvres 
individus qui prennent du teaps sur leur week-end 
afin d'aider leur Club favori... Enfin, tout 
s’est bien passé, en soins de tesps que pour 
1'anénagenent. 


C'est maintenant l'heure des coaptes: nous so8aes 
24 de plus. Ceci peut paraître bien peu par 
rapport à l’investissesent, mais il ne faut pas 
oublier les adhésions indirectes, les contacts, 
les rencontres, etc... 


Cette année encore, un bilan largement positif, 
qui nous donne envie de reconsencer. 

J'espère que ceux qui ont tenu le stand ont 
éprouvé comme aoi du plaisir à voir, rencontrer, 


discuter, échanger, cosauniquer. 

I] se reste à remercier tous ceux qui ont donné 
de leur tesps pour aider PPC-PARIS, tous ceux qui 
ont aidé financièrement, et tous ceux qui sont 
passé sur le stand. 


Allez, on recosencera l’année prochaine... 


Pierre DAVID 


Ée. oui, voila Qanhiauee 
CR ES 
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LE COURRIER DES LECTEURS 


COURRIER DU COEUR 


Jean REIBEL, 9 square Flesing, 92350 Le Plessis Robinson, (Tel.: (1) 631 46 11), Vends 
HP41CV 1100FF, Interface Vidéo 1200FF, aodule HPIL 500FF, Crayon Optique 700FF, Module 
Math/Stat/Jeux/STRD 200FF, Nx livres. 


Philippe TENAND, 2bis rue De L’Egalité, 94300 Vincennes, (Tel. le soir: (1) 808 17 25). 
Vends un module HP41 REAL ESTATE 200FF (prix norsal 407FF) et des livrets HP d'application 
cosplètesent introuvables et utiles pour la prograssation de n’ieporte quel ordinateur. Les 
organigrasses inclus font figure de référence (état iapéccable). HP67/97 Astrology (11 
prograsses en anglais, très détaillés et expliqués) 100FF. HP67/97 Games (11 prograsaes en 
anglais, dont sisulation de football et bridge) 100FF. HP67/97 Games of chance (10 prograsses 
en anglais, livret retiré très tôt de la vente, sése pendant l’époque des HP47) 100FF. 
HP19C/29C Finance (10 prograases en anglais avec détails et foraules, cose tous les livrets de 
cette liste) SO0FF. Deux paquets de feuillets de prograssation, jamais utilisés. HP65 Progras 
forss (sous forse de , une vraie pièce de collection) 50FF. HP00097-90081 (bloc déjà plus 
récent, feuilles volantes, je fournis l’esballage) 35FF. Prograssable pocket calculators 
Gisportation USA) 100FF, sur un historique des calculatrices HP et RPN, (prix noraal environ 
200FF). Le calculateur progransable de poche et ses jeux SÔFF (prix norsal inconnu, à 
débattre). Fascicule Nicro-Revue (fait par PPCT) No 1, spécial codes-barres (avec progranses, 
tout pour HP) 40FF (c'est le prix noraal, sais il parait qu’il est épuisé, alors j'en 
profite!). Annonce faite pour Paris et sa région. Pour grande banlieue et ailleurs, en cas de 
colis, frais à votre charge {se renseigner et rajouter). Echange de livrets possible (contre 
livrets HP4i, ou le tout contre aodule T199/4%). D’autre part, j'achète tout sodule T199/4R et 
journaux HP Key Notes. 


Vincent HERLICR (P81), 3 rue Berthaux Dusas, 92200 Neuilly, (Tel.: (1) 624 26 17), Vends 
HP82161A (du 9/84) 3S100FF et HPB2162A (du 6/83) 2900FF. 


François ECKERT (P88), 45 rue du docteur Babin, St Germain lès Arpajon, 91290 ARPAJON, 
Tel.: (6) 016 48 54. Vends une HP4ICV, une isprisante 821434, un lecteur de cartes, les 
aodules Tise - XFonctions - XMesory - Math et Financial, cartes sagnétiques, livres, doc... , 
le tout pour 4500FF. 


Michel MARTINET (P#12 SIG#2), 17 rue Eugène Hénaff - 93200 ST DENIS (Tel: (1)8220149). 
Vend un HP75C + eodule 8k RAM + aodule Texte + VISICALC + de très nosbreux logiciels ....., le 
tout pour 7000 Frs. (sept aille Francs). 
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#t 

URGENT: 4 

tt 

tt 

tt 

Monsieur Patrick LECHEVALLIER, tt 

Hewlett-Packard France, sf 

BLANC-MESNIL, 4 

Tel,: 865 42 52 tt 

tt 

LL 

RECHERCHE: suite à un coup de fil de #1 

Patrick Lechevallier, travaillant chez HP #4 

France au Blanc-Mesnil, cherche à titre #4 

personnel à prendre contact avec tous ft 
les  sesbres ayant développé du 
logiciel sur l’aviation civile, Que 
ceux qui ont travaillé dessus le 
rappelle de toute urgence. MERCI à tous. 


Philippe. 


Jean-René BARREAU, 
4 Avenue Beauger, 
44300 NANTES. 


Nantes, Le 22/04/85 


Monsieur, 


Je sesuis procuré aux alentours du preeier 
de l'an de cette année un HP4ÏCX. Cossent éviter 
qu'un prograsse soit piraté ? Peut-on par le biais 
d'une clé inforaatique unique ouvrir ou ferser le 
aode programe à la place de la touche 
fonctionnant en bascule sur le clavier? 


Dans le manuel d'utilisation, il est fait 
référence à la fonction DEL. La sachine connait 
cette instruction puisqu'elle ae desande le 


parasètre, mais elle ne fait absolusent rien à la 
suite de cela tel que le sanuel le dit. Après 
l'entrée du parasètre, la fonction disparait de 
l'affichage siaplesent. 


de possède par ailleurs une sachine à écrire 
pouvant se brancher et servir d’isprisante par un 
raccord électrique à la sachine lançant les 
instructions. Il s’agit de la Brother EPA4, 
Plutôt que de passer mon teaps à lister et 
corriger les programmes à la sain, serait-il 
possible de la brancher sur le HP4{CX d'où un 
intérêt certain ferait son apparition, ne serait- 
ce qu’en évitant d'acheter l’isprisante HP ? 


La HP4ICX est-elle autorisée aux examens? Si 
oui, lesquels et quelle est la filière à suivre 
pour obtenir une réponse écrite officielle à ce 
sujet ? 


Dans l'attente d’une réponse, veuillez agréer, 
Monsieur, l'expression de mes sentisents les 
seilleurs. 


Jean-René. 


Réponse du docteur PC, 


Il n'existe pas à sa connaissance de façon 
ni standard ni synthétique d'éviter le piratage 
d’un programe et de sauvegarder l’action de la 
touche PRGM. Je pense qu’il faut s'orienter 
vers le sicrocode sur HP41 (étude qui n’est pas 
accessible directesent sur la HP4Î mais qui 
nécessite l’achat d’un MLDL et d’un docusent qui 
s'appelle VSAM: une véritable bible). 

La fonction DEL___ne fonctionne que sur un 
programe (aais n’est pas programmable). Eile 
perset d'effacer (DELETE) le nosbre de lignes 
indiqué par le parasètre et à partir de la 
position courante du pointeur progranse. 


Tu peux brancher votre machine à écrire 
la HP41 de 2 façons différentes. Soit si tu 
bricoleur et plus ou soins électronicien, 
un convertisseur HPIL {le HP82186A n’est plus 





dans le commerce, sais disponible auprès d’HP en 
pièces détachées), soit en achetant l'HPIL et 
l'interface HPIL (==) RS-2320 et faire les 
branchements appropriés. 


En ce qui concerne ta dernière question, je 
pense que la meilleure façon de connaître la loi 
et d’avoir une confirsation écrite, est de la 
demander au rectorat de ta circonscription. 
Quoiqu'il en soit, la HP41 entre dans la catégorie 
des "“calculatrices" adaises aux exasens à la 
condition expresse qu'elle ne soit connectée à 
“rien", (ni chargeur, ni aodule, ni périphérique. 
Les modules peuvent être rendus invisibles soit 
par intégration dans la aachine, soit par un 
gratage approprié de leur nos). 


Asitiés et Heureuse Frograasation aux examens. 


Hugues OBERLE 
1 Rue Beaulieu 
68440 ZIMMERSHEIM 
Monsieur, 


Désirant faire un prograsse qui appelle certaines 
routines du sodule MATH, routines qui ne 
cossencent pas sur un LBL apparaissant au catalog 
2, j'ai désespéresent cherché un soyen pour 
positionner (par Prograsse) le pointeur à un 
endroit précis en ROM. 

Y-a-t’il un registre qui contienne une 
instruction qui peraette à la sachine de savoir 
si elle est en RON ? 


Cher Hugues 


La réponse à ta question a déjà été apportée par 
P.  DAVASE dans le numero 22 p. 16. Néanaoins, je 
préciserais le fait que le soyen utilisé consiste 
à placer le pointeur ben ROM à l’aide de la 
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prograssation synthétique. 


François LE GRAND 
99 rue Josse Japens 
1030 BRUXELLES 
BELGIQUE 


Réactions au JPC No 23 


1. En bas de page 5: "Accord avec HP” 

avant dernière ligne: "Réduction de 53.71 sur le 
prix catalogue" 

J’ai lu l’article au soins 2 fois avant de s’en 
resettre. D'ailleurs, je suis toujours sceptique. 
3 solutions: 

— Une faute de frappe (13.72, 23,71) 7... 

— Un poisson d'avril 

- C'est vrai ! Dans ce cas, bravo (on ne sait 
jamais). Si c’est vrai, coment faut-il s’y 
prendre ? Où faut-il s’adresser ? Pourriez vous 
m'envoyer les nouveaux prix du matériel qui nous 
interesse ? 

2. La carte de sesbre offre 252 dans certains 
magasins, lesquels ? Et sur quels articles ? 

3. Où peut on se procurer les I.D.S 71 au 
seilleur prix ? (club, HP, RAC) 

4, Où peut on se procurer FRALEX ? 

Sd. Qu'est ce que le 5.1.6. ? Pourquoi: SATURN ? 
6. Petit problèse de prograssation HP71. 

de veux arriver à un résultat sesblable à 
l’exesple p 238 du sanuel d'utilisation. Pour 
cela, j'utilise la foraule: DISP USING... 
INPUT... au Jieu de INPUT (INPUT USING 
indisponible) or, je n’arrive pas à faire entrer 
un CHR$(27) dans un ordre INAGE, pas plus que 
n'isporte quel CHR$(), ou n’isporte quelle 
variable alphanueérique, 11 faut que La chaîne à 
afficher soit en toutes lettres, entre guillemets 
La seule solution que j’ai trouvée pour 
incorporer un CHR$(27) dans un ordre IMAGE est 
d'utiliser un ordre PRINT USING au lieu de DISP 
USING, et d'utiliser le syabole isage /(ENDLINE) 

















avec ENDLINE CHR$(27). Tant qu’il n’y a pas 
d’iaprisante sur la boucle, Ça se passe bien. 
Autrement, je ne sais pas (pas d’isprisante 
directesent sur la boucle) mais je pense que 
bonjour les dégats, ou du soins, bonjour la 
pagaille, 










Beaucoup de questions 

Pourriez vous répondre par retour de courrier aux 
questions À à 3, la sixièse desandant sans doute 
quelque réflexion ? 







Tous ses encouragenents. Bien à vous 









Réponse de 516 #3 






Etant donné le nosbre iaportant de questions que 
tu nous poses, je pense qu’il serait logique de 
les reprendre une à une: 

1. 1] s’agit cosse tu le propose d’ailleurs fort 
judicieusesent d’un poisson d'avril. 

2. La carte de sesbre offre des réductions sur 
tous les articles HP. Pour connaitre les aagasins 
qui nous font cette ristourne, contacte-nous 
directement au club. 

3. Les 1.0.5 sont en vente à la Règle à calcul, 
et auprès d'HP. 

4. Pour se procurer FRALEX, envoie-nous un 
support quelconque au club; nous nous ferons une 
joie de te permettre de rester Français. 

S. Parce que TITAN est un des satellites de 
SATURNE. 

6. Il est indiqué dans le sanuel de référence, à 
la page 137 que le sysbole isage E a pour 
signification CHR$. Il suffit donc d'entrer un 
ordre du genre: DISF USING *B,’P71°";72 pour 
obtenir le sessage HP71. 

Voila; j'espère avoir eclairé ta lanterne sur ces 
quelques problèses. 
























Bonne prograasation. 
Laurent ISTRIA 












J. HORVILLE 
31, rue Berthollet 
94110 ARCUEIL 


Arcueil, le 18 avril 1985 


4205 


Monsieur, 





M. Pierre DAVID, dans le No 23 de JPC, invite les 
lecteurs à signaler les erreurs trouvées dans 
dans le Journal. 


Je pense qu’il s’en trouve une dans sa liste de 
rectificatifs, celle-ci: Dans le No 21: 
“3160 FOR J=EN TO N/2 STEP -1" 

Cette ligne, où se trouve-t-elle 7... 
doit-on faire ? 


et que 


Dans le prograsse VALPROP de M. Olivier Arbey, 
No22 page 53 tout est parfait pour les satrices 
3x 3aais au-delà rien d'autre qu’un sifflement 
(aéprisant pour ceux qui ne savent pas 5e 
dépanner tout seul). 


J'ai d'autre part un problèse qui doit-être 
cossun à de nosbreux HPiste, Est-il norsal de ne 
pas pouvoir iapriser les quelques lettres 
grecques que la 71 affiche et que la 82162 
japrise.., mais sous la dictée de la 41 et non 
sous celle de la 71 (aodule 82401). 11 se sesble 
que ce n’est pas pinailler que de vouloir appeler 
un angle 8 plutét que T. Par contre, le CHR$(96) 
s’iaprise et s’intrigue. 


J'ai par ailleurs resarqué que dans le progranne 
MATRICES de M. Frédéric BARNAUD La 75 parlait 
exactesent come la 71. Si les différences sont 
si peu nosbreuses, JPC ne pourrait-il pas publier 
un petit comparatif 7 





J'espère ne pas vous avoir ennuyé(s) et j’adresse 
à ON. le Président et à toute l’équipe JPC 
l'expression de sa plus cordiale syapathie. 





JPC 
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REPONSE DU DOCTEUR JPC 


Avant tout serci de lire JPC, et de le lire 
suffisesent pour y décel er les erreurs qui s’y 
sont glissées (de soins en soins nosbreuses à 
l'avenir: nous l’espérons tous). 


Pour ce qui est des caractères grecs, il faut 
d’abord savoir que la plupart des ordinateurs de 
nos jours utilisent 1l’ASCII (Aserican Standard 
Code for Inforsation Interchange) et que les 
portables HP eux aussi l'utilisent, Dans ce code, 
nous avons {28 caractères (CHR$(O) à CHR$1127)). 
Les codes 0 à 31 et le 127 sont des codes de 
contrôle, ils ne représentent généralement pas de 
lettres ou chiffres sais des cossandes entre 
l'ordinateur et ses périphériques (Exesple: 
CHRS(B), CHR$(10), CHR$(13) sont respectivenent 
Back Space, Line Feed et Carriage Return). Les 
portables HP n’utilisent pas tous les caractères 
de contrôle et resplacent généralement les 
inutilisés par des caractères suppléaentaires 
dans le genre des caractères grecs, Ces 
caractères sont "locaux" et ne sont pas 


isplésentés sur les périphériques. Seuls les 
caractères (32 à 126) sont respectés et sont 
cosauns à tous Les périphériques ASCII. Pour la 
cospatibilité HP75 {==} HP71, à peu près tous les 
prograsees HP75 sont compatibles sur le HP71 
ŒMoyennant néanaoins des petites sodifications). 
L’inverse est par contre quasisent iapossible). 


Pour ce qui est des programmes, ils ont été 
essayés et testés avant de paraître dans le 
journal. 1] peut parfois arriver qu’une erreur se 
glisse dans un fichier texte mais pour ce qui est 
des prograsses BASIC dont tu parles nous les 
utilisons assez souvent et pour notre part, ils 
fonctionnent à serveille. Tu peux venir aux 
réunions sensuelles (Le premier Saaedi de chaque 
sois) et nous nous ferons un plaisir de te fournir 
tous les prograsses dont tu as besoin. 


Voilà, j'espère avoir été suffisasent clair. 


Heureuse Prograsmation . 


JPC  nr25 page 16 


Michel MARTINET #12 (51682) 
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Philippe TENAND 
Gilbert TISSERAND 
Denis CASTELAIN 
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Philippe GUEZ 


HP41 ET RECURSIVITE (TOURS DE HANOI) 

EPROM ET MICROCODE 

DES DRAPEAUX A LA CHAINE 

ORDINATEUR DE BORD 

PROPOSED STANDARD HP41 MACHINE LANGUAGE BAR CODE 
Traduction de l'article ci-dessus 

RADDENDUM 


Traduction de l’article ci-dessus 





JéGOUZO Christian 





7 rue de la voute 
PARIS 75012 (£ 82) HP-41 et RECURSIVITE 





Lors de la définition d'une procédure ou d'une fonction, il est 
possible de faire référence, dans le bloc d'instructions, à cette procédure 
Cou à cette fonction ) elle-même. C'est ce qu'on appelle une procédure 
( fonction ) récursive. 


Dans les langages évolués (PASCAL, MODULA... ), il est possible d'écrire 
des procédures récursives puisqu'à chaque appel de la procédure, de 

nouvelles variables locales sont engendrées. La récursivité implique, en 
effet, l'empilement des résultats intermédiaires ( segments de données ). 


Il est bien sûr, à priori, difficile de programmer sur une HP-41 des 
procédures récursives. L'objet de cet article est de vous montrer que 
l'on peut contourner le probléme et j'utiliserai le célébre exemple des 
TOURS de HANOI pour illustrer mon propos. 


1 Différentes Méthodes d'Implémentation du langage PASCAL 
PR mm + 


Les différentes méthodes actuelles pour implémenter le langage 
PASCAL peuvent se regrouper en 3 familles : 


— Traduction dans le langage de l'ordinateur cible. 

— Traduction en langage intermédiaire et interprétation. 

— Traduction en langage intermédiaire, puis traduction en langage de 
base de l'ordinateur cible. 


Le langage intermédiaire est généralement appelé " P-CODE ". 

Examinons la deuxiéme méthode : 

L'exécution d'un programme PASCAL se fait en 2 temps : 

- Le compilateur compile le programme ( analyse lexicale, syntaxique, 
sémantique...) et génére un fichier p-code. 

— Ce fichier p-code est interprété 


La premiére opération n'est bien sûr pas réalisable avec une HP-41, 

mais il est possible d'écrire l'interpréteur de p-code. 

Lors d'une étude du compilateur PL3 ( proche de PASCAL ) et de l'interpréteur 
associé ( INTPL3 ), j'ai pu me procurer le fichier p-code obtenu aprés 
compilation du programme des tours de Hanoi. 

Une bonne connaissance du compilateur permet d'ailleurs de générer 

le code " à la main ". ( cas des tours de Hanoi où il y a peu de 

variables ) 


2 Architecture de la Machine PL3 ( HP-41 ) 
ie RER 9 


La possibilité d'utiliser la récursivité dans le langage PL3 
suggére le choix d'une machine à pile. ( cas de la HP-41 ) 
Cette machine consiste en 2 mémoires, un registre d'instructions et 3 
registres d'adresse, soit : 


















Une mémoire de programmes chargée avec le code produit et qui reste 
inchangée durant l'interprétation de ce code. C'est une mémoire à 
lecture seule. 

(cette mémoire sera pour la HP-41 un fichier de données HANOI. le p-code 
sera sous la forme de Nombres Non Normalisés et non sous forme alphanumérique 





— Une mémoire de données organisée comme une pile. Les instructions de 
calcul travailleront essentiellement sur le sommet de la pile et 
éventuellement sur le sous-sommet. 

( les registres 01 à n de la HP-41 représenteront la pile ) 


— Un registre d'instruction I qui contient l'instruction en cours 
d'interprétation. 
(une instruction est de la forme INS L,A . Elle est décodée dans le 
registre M. A l'appel du sous-programme INS, L se trouve dans le registre 
O et À en X dans la pile ) 


— Un registre programme P qui contient l'adresse de la prochaine instruction. 
à interpréter = compteur ordinal. 
( registre N de la HP-41 ) 


— un registre T qui contient l'adresse du sommet de la pile. L'élément du 
Sommet de la pile est adressé par ce registre. 
( registre M de la HP-41 ) 


— Un registre de base B qui contient l'adresse du segment de données le 


plus récemment alloué. 
C registre 00 de la HP-41 ) 


3 Récursivité 





Chaque procédure dans PL3 contient des variables locales. Ces 
procédures pouvant être activées récursivement en cours d'exécution, la 
mémoire pour les variables locales ne peut être allouée avant l'appel 
effectif de ces procédures. 

A chaque appel d'une procédure correspondra l'empilement d'un segment 
de données qui contient, outre l'emplacement des variables locales 
et des paramétres : 


— L'adresse programe de l'appel 
— L'adresse du dernier segment de données ( chainage dynamique }) 
— La différence de niveau d'imbrication ( chainage statique }) 


L'adresse orisine du sement de données le plus récemment empilé est 


mémorisé dans le registre de base B. 


Un segment de données peut donc être représenté ainsi : 






variables 
locales 







le chaïnage dynamique permet de savoir qui a aprelé 
la procédure. Le chainage statique assure la récursivité 
et l'accés aux variables. 
Pour accéder à une variable, il faut donc connaitre 
— l'adresse relative de la variable dans le segment 
de données. 
— l'adresse de base du segment approprié 








Accés à une variable 


— Si la variable est locale à la procédure, l'adresse de base du segment 
de données est donnée par le registre de base B. 


— Sinon elle est obtenue en descendant les segments de données grâce 
au chainage statique. ( sous-pgm BASE ) 


4  HP-41 et TOURS de HANOI 


11 s'agit d'un jeu et d'une légende, rapportés d'Extrême-Orient. 
Des moines bouddhistes jouent avec des disques empilés sur des pieux, et 
la fin de la partie est censée symboliser et annoncer la fin du monde. 
Ils disposent de 3 pieux, ou tours, susceptibles de recevoir des disques, 
empilés suivant des diamétres décroissants ( il y en a 64 )- 
Le jeu consiste à faire passer les 64 disques de la tour n° 1 à la tour 
n° 2, en ne déplaçant qu'un seul disque à la fois, et en utilisant la 
tour intermédiaire n° 3 de telle sorte qu'à aucun moment un disque ne 
soit empilé sur un disque de plus petite dimension. 


Le programme des Tours de Hanoi en langage PL3 peut s'écrire ainsi : 


VAR X,Y; 
PROCEDURE HANOI (N,D,B,1); 
IF N > O THEN 
BEGIN 
HANOI (N-1,D,1,B); 
Y:=Y+15 
WRITELN(Y:2,':",D:1,' > ‘,B:2); 
HANOI(N-1,1,B,D); 
END; 
BEGIN (* corps du pgm *) 
WRITE('N = ?'); 
READLN(X) ; 
Y:=0; 
HANOI (xX,1,2,3); 
END. 


Les chiffres placés à gauche indique le numéro de la ligne p-code 
correspondante. 
Le code généré est le suivant : 


JMP 0,32 
INT 
LIT 
JPC 
LOD 
OPR 
LOD 
CAL 
LIT 
STO 
LOD 
OPR 
LOD 
OPR 
LOD 
CAL 
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N=7? 
STO 0, 
STO 0, 
LOD 0, 
LIT O, 
CAL 4, 


Vous remarquerez que je n'ai pas tenu compte du champ d'affichage des 
variables ( ex : Y:2 ) afin d'afficher le résultat sur la HP-41 en 

une seule fois ( OPR 0,15 ). 

J'ai donc modifié le code original et les instructions d'affichage pour 
être compatible avec la HP-41. 


5 L'Interpréteur INTPL3 : 


11 suffit de le lancer par XEQ* INTPL3. Lorsque l'affichage 
montre  N =?" Entrer le nombre de tours considérées et R/S.- 
L'affichage indiquera le numéro du déplacement, le numéro du socle 
sur lequel on prend le disque et le numéro du socle sur lequel on le 
pose : ex : 6: 2>3 6 éme déplacement - socle n° 2 vers n° 3 


Auparavant, il faut créer le fichier de données HANOI ( Nombres Non 
Normalisés ). Procéder comme suit : 
- Créer un fichier HANOI de 46 registres. 
— Se positionner en début de fichier. 
— Ecrire en Alpha l'instruction p-code sur 6 caractéres. 
ex : LOD 0, 3 s'écrira LODO,03 
puis RCL Met SAVEX etc... 
Description sommaire de l'interpréteur : 
— Pas”01 à 40 décodage de l'instruction p-code. 


— Les labels alphanumériques correspondent à l'interprétation de chaque 
type d'instruction. 


Description sommaire des instructions p-code : 
LIT : chargement immédiat sur le sommet de la pile S(T). 
LOD : chargement du contenu d'une variable. 
STO : rangement du sommet de la pile dans une mémoire. 
MST : construction des chainages dynamique et statique. 
activation de procédure. 
gestion du pointeur de pile 
saut inconditionnel. 
saut conditionnel. 


: prépare affichage d'un message. 





: instructions arithmétiques et logiques 


Champ A = 00 : retour procedure 





01 : addition 

02 : soustraction 

12 : comparaison S(T-1) > S(T) ? 

15 : affichage de S(T), S(T-1), S(T-2) 
17 : affichage d'un message 


L'interpréteur sur la HP-41 fonctionne rigoureusement de la même façon 
que sur l'ordinateur. Seules les fonctions d'affichage ont été adaptées 
et transformées. 


6 Exemple d'exécution : 


Pour n tours, il faut 29 1 déplacements ( 2-1 est un nombre trés grand ) 
Je vous donne les 63 déplacements nécessaires si n = 6, ainsi que le 
chronométrage sur une machine non accélérée. 


st >, 0Oh03mn42s 333.3: > 2 Oh46mn28s 
ASE 4 35 345.355. 41 47 22 
353-3527 5 54 35:12:31 &8 41 
&& Ti>cs 6 49 36: 3:> 2 49 35 
5:22>1 8 35 37: 1 >:3 51 23 
6-2 > 3 9 29 38: 1 > 2 52 15 
721 33 10 48 395 3,>°2 53: 35 
8 1 > 2 11 45 40:32>1 54 33 
958% 2 14 00 #1:2>1 56 48 
10: 3 >1 14 53 42: 2>3 57 40 
11522554 16 12 43: 1 > 3 59 00 
1223-32 17 08 &&:2>1 59 54 
135 1:>3 18 55 45: 3> 2 1h01mné2s 
14: 1>2 19 48 46: 3>1 2:35 
1553 572 21 07 47: 2>1 3 54 
16: 1 >3 22 07 48: 3 > 2 & 35 
#7:2>1 24 50 &9: 1 >3 7 37 
18: 2>3 25 43 50: 1 > 2 8 30 
19: 1 > 3 27 02 513 3 52 9 49 
20: 2>1 27:57 2e Vo 10 44 
245 35°2 29 44 532:2.> À 12 33 
2535 1 30 37 54: 2>3 33, 27 
24: 2>3 31.27 552 45-3 14 43 
25: 1 > 3 32 54 56: 1 >2 15 42 
26: 1>2 36 04 5753 > 2x 17 56 
2753572 37 20 582 3 > 1 18 49 
28: 1 > 3 38 16 59: 2>1 20 09 
29322 1 40 03 60: 3 > 2 21 04 
30% 2 >°3 40 56 61: 1 >3 22 50 
31: 1 > 3 42 15 62:1>2 23 #44 
3244 > 2 Oh43mn16s 63:352 25 02 

N=7? 1h26mn00s 


Pour n = 9, j'ai obtenu les 511 déplacements en 11 heures et 32 minutes. 


Pour n = 6, la pile d'exécution monte jusqu'au registre 54. 
Si vous voulez regarder de trés prés le fonctionnement récursif, il faut : 
— rajouter AVIEW aprés STO M du pas 14 afin de visualiser l'intruction 
en cours. 
— recopier la pile d'exécution sur papier RCL 01, RCL 02 .... 


: _ BON COURAGE... 
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1 LBL INTPL3 
CLRG 
1 
STO 00 
CLST 
THANOI 
SEEKPTA 
LBL 20 
CLA 
SEEKPT 


XEQ IND Z 
RCL M 
RCL N 
GTO 20 
LBL' BASE 
RCL O 
xX#07? 
GTO 11 
RDN 
RCL 00 
RTN 
LBL 11 
RCL 00 
50 LBL 10 


L'INTERPRETEUR INTPL3 


51 RCL IND X 
XOY 
RDN 
DSE Y 
GTO 10 
+ 
RTN 
LBL'LIT 
L 
ST+ M 
X © Y 
STO IND M 
RIN 
LBL' OPR 
GTO IND X 
LBL 00 
RCL 00 
1 
STO M 
3 
+ 
RCL IND 
STO N 
XOY 
1 


RCL IND 

STO 00 

RTN 

LBL 02 

RCL M 

RCL IND 

XOY 

1 

KO T'Y 

RCL IND 

+ 

STO IND 

RDN 

STO M 

RTN 

LBL 03 

RCL IND M 

RCL M 

1 

RCL IND X 
100 RCL Z 


101 - 
STO IND Y 
RDN 
STO M 
RIN 
LBL 12 
RCL M 
1 
ST- M 
RCL IND Y 
RCL IND M 
XD Y? 
SF 00 
FS? 00 
1 
FC?C 00 
0 
STO IND M 
RTN 
LBL 15 
RCL N 
RCL M 
2 
CLA 
FIX 0 
CF 29 
ARCL IND X 
TH:Y 
1 
+ 
ARCL IND X 
THÉ 
1 
e 
ARCL IND X 
AVIEW 
TONE P 
3 
STO M 
XOY 
STO N 
RIN 
LBL 17 
RCL M 
RCL N 
RCL IND Y 
SEEKPT 
150 GETX 


RTN 
LBL' LCA 
RCL M 
1 
ST+ N 
j 
STO M 
XOY 
STO IND Y 
RIN 
LBL' LOD 
1 
ST+ M 
RDN 
XEQ' BASE 
4 
RCL IND X 
STO IND M 
RTN 

180LBL' STO 
XEO” BASE 
< 
RCL IND M 
STO IND Y 
1 
ST- M 
RTN 
LBL MST 
RCL M 
1 


ue 
XEQ' BASE 
STO IND Y 
LAS Y 
1 
qe 
RCL 00 
STO IND Y 
3 

200 ST+ M 


STO 00 
2 

F 

RCL N 

STO IND Y 
x 

3 

STO M 
RCL Z 

STO N 

RTN 

LBL' INT 
ST+ M 

RTN 

LBL' JMP 
STO N 

RIN 

LBL' JPC 
RCL IND M 
1 

ST- M 

RDN 

X#07? 
RTN 

RDN 

STO N 

1 

ST- M 

END 





EPRON ET MICROCODE 
POUR HF41 


Ces matériels sont isportés et vendus par des 
clubs d'utilisateurs à leur sesbres ou par des 
asportateurs spécialisés. À savoir, le PPC 
PARIS-CHAPTER, les éditions du Cagire, ou par 
LCI. Les différents types de matériels sont: 


- Les epross, 

- Les lecteurs d'epros 

- Les prograssateurs et duplicateurs d’eproa, 

- Les MLDL (pour Le aicrocode) et le protocoder, 
- L'union d’un MEDL et d’un lecteur d’epros, 
abusivesent appelé parfois MLDL, 


Tout d’abord, qu'est-ce qu’une epros? On sait que 
la ROM est une sésoire aorte en circuit intégré, 
obtenu par procédé photographique et ineffaçable, 
L’epros est prograauable, sais est effaçable 
seulesent par ultraviclets et en laboratoire. Elle 
reviennent beaucoup soins cher qu’une RO. Il 
faut séparer le sytèse des epross du systèse 
MLDL, dont le but est la prograssation en 
sicrocode sur HP4I, Un MLDL est aussi appelé un 
sisulateur de RO. Pourquoi? Parce que la 
prograsation en aicrocode ne peut pas se faire 
directesent dans la HP4!, sais dans des RAM et 
des ROM externes (contenus dans le MLDL), Ceci, 
parce que Les instructions du sicroprocesseur 
sont codées sur Iûbits, alors que le langage 
utilisateur l’est sur Bbits. 


1 existe en effet 3 sortes de prograneation dans 


une HP41; l'affichage norsal (ou asseatleu 
évolué);"113 AVIEN, ce qui est dans la 
séncire; F4 42 49 4C 40 F3 52°, le sicrocode ou 
langage sachine tau niveau du 
sicroprocesseur);"00 0100 1101°. pour éviter une 
prograssation fastidieuse, ils se prograssent par 
codes ou s’écrivent en signes appelés anéaoniques 
ex: C=Q ALL). 

L'avantage de tout ceci, un prograsse en 
sicrocode tourne 350 fois plus rapidesent. 

Des déacnstrations avaient eu lieu pendant le 
Spécial - Sicob, au Stand du club FFC 
PARIS-CHAPTER, Les prix sont  extrèmesent 
variables suivant les nosbreux aodèles et les 


spécificités en fonction des capacités de chacun. 
Se renseigner auprès des clubs et des DrQanisses 
dont les adresses ont déjà été données. Voyons 
les logiciels, très variés (4, 8 ou 16k); 
navigation, sathénatique, progransation 
synthétique, comptabilité, traitesent de texte, 
gestion, astronosie, construction navale, etc... 
certains sont en sicrocodes, d'autres non (de 350 
à 600FF). Par comparaison, une ROM fabriqué en 
série lisitée coute environ 1200FF. Un lecteur, 
le soins perforsant (4k, juste pour une epros de 
4k naxiaue), coûte à partir de BOOFF, un bon 
sodèle pour 2S00FF et un aodéle ressesblant à ur 
lecteur de cartes pour SO00FF. À choisir selon le 
but recherché. 


Philippe TENAND, 
Notes de l'éditeur: 


Quelques précisions quant à ta prose. Les éprons 
peuvent Etre non seulesent effacées par les 
ultraviclet (utilisable par n’iaporte qui s'il 
possède la laspe appropriée), mais aussi selon 
l'epror  (EEPROM) doivent être effacées 
électriquesent (desande un système électronique 
beaucoup plus cosplexe). 

Il existe effectivesent plusieurs façons de 
programeer la HP4], que nous appellerons 
“standard, synthétique et sicrocode'. les deux 
presières étant trés proches l’une de l’autre, 
beaucoup de prograaseurs les sëlent l'une et 
l’autre et utilisent des principes de 
progragsation synthétique pour  aséliorer, 
raccourcir et un pr ere, Le presière foree de 
prograssation, est celle préconisée par HF et 
développée par tous les utilisateurs de 
calculettes HF (séries 50, 90, 60, 30, 20, 10 et 
40). C'est du langage sysbolique élésentaire 
CS AVIEN) aussi appelée RPN reverse polish 
notation), Pour les besoins internes de la HP41, 
ont été créés à l’intérieur de cette sachine, un 
certain nombre de registres (M, N, ...), qui 
associés à des octets (144 = RC, ...), ont 
perais aux prograsseurs PFC de développer la 
prograseation synthétique, qui ne fut acceptée 
par HF qu'environ 2 ans et desi après la sortie 
du HP41. D'autre part, sans parler de sicrocode, 
seule la prograssation synthétique vous peraet de 
“visiter” toute la aéacire de votre chère HP4I, 








et de pouvoir soit de lire, soit écrire dans les 
64k (méaoire ROM + RAM), et cela par le nos des 
fonctions (’REL WI), soit par leurs codes 
hexadéciaaux ou décisaux (790 757). Enfin, le 
sicrocodes vous peraet toutes les possibiliè s de 
résolution précédemment décrites, mais Ylus 
encore, car elle perset d’une part d’avoir de 
vitesse de 250 fois supérieure à celle du atde 
prograsse en langage utilisateur sais aussi de 
pourvoir créer tout ce dont vous avez besoin, 
entre autres de nouvelles fonctions (par ex, 
PSIZE ne peut être fait qu’en sicrocode) et 
enfin, toutes les routines créées, n’utilisent 
aucune place dans les 319 registres de sésoire 
vive de la HP4l. Selon les utilitaires de 
prograssation, ont peut prograsmer le ALDL soit 
en envoyant le code décisal codé binaire, soit 
envoyer les codes hexadécisaux, soit à l’aide des 
snésoniques. Suite à ces quelque précisions, je 
pense qu'il faut ajouter, qu’on appelle 
sicrocode, tous les codes binaire (01 1101 1001), 
le langage sachine est une prograssation par 
l'envoi des codes binaires et langage asseableur 
est un traducteur du langage sachine en 
anéaoniques. 

1 faut enfin signaler que la désonstration de 
ces matériels, à été faite durant le Spécial 
Sicob 84 et non le Sicob 85 ou d’autres logiciels 
ont été présentés. 


Philippe. 


DES DRAPEAUX À LA CHAINE 


Il arrive souvent que, dans un prograsse, on ait 
à settre une série de drapeaux dans un état donné. 


Une solution prisitive consiste à faire SF et CF 
autant de fois qu’il y à de drapeaux. Mais voilà: 
deux  problèses se posent. D’une part, cett 
méthode est très lourde, très longue et très 
gouraande en place séaoire. D'autre part, si l’on 
veut agir sur les drapeaux 30 à 55, on se heurte 


à un sessage d'erreur bien senti ! 


La solution consiste à utiliser un peu de 
prograssation synthétique: il faudra utiliser une 
séquence du type 

Chaîne synthétique 

RCL A 

STO d 

Ce qui aura pour effet de settre d’un coup tous 
les flags dans une configuration donnée. Mais de 
quoi est cosposée cette chaîne synthétique ? 


Le prograsse que sousets à votre perspicacité 
aujourd’hui à pour but de vous donner les codes 
correspondant à une configuration de drapeaux 
donnée. 


Vous entrez les nuséros des drapeaux que vous 
désirez voir araer, puis vous finissez en 
appuyant sisplesent sur [R/5]. La--HP#t—vous 
affiche alors les codes décisaux de la chaîne 
synthétique à rentrer. 


Heureuse Prograssation, 


Gilbert TISSERAND 


O1LEL "SF" 
02 CLRG 

03 FIX 0 
OHLBL d 

05 *SF?" 

06 PROMPT 
07 FC2C 22 
08 GTD À 

09 ENTER* 

10 ENTER" 
18 

12/7 

13 6TD IND X 
143LBL 00 
15 XEQ 07 
16 ST+ 00 

17 670 d 
184LBL 01 
19 XE8 07 
20 ST+ 01 
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26104 

22ALEL 02 ORDINATEUR DE BORD 

23 XE8 07 

24 ST+ 02 

25 610 d 

264LBL 03 Le progranse "OE' transtorse votre HP41 préférée 

27 XEQ 07 en ordinateur de bord pour votre autosobile. 

28 ST+ 03 

29 GTO d 1 nécessite la présence en XMesory d’un fichier 

3O0HLBL 04 de données *FOB" de 8 registres. 

31 XE9 07 

32 ST+ 04 L'utilisation est on ne peut plus sisple: il 

335 670 d suffit de choisir une touche parai les suivantes. 

SAILEL 05 

35 XER 07 [A]: départ de la prenière étape 

36 ST+ 05 

37 610 d [B]: fin d’étape 

3BILBL 06 

39 XER 07 [Cj: départ de l’étape suivante 

40 ST+ 06 

4 670 d UD): soyenne cusulée des différentes étapes, par 

424LBL 07 rapport au teaps roulé. 

45 RDN 

Hg noyenne cuaulée par rapport au tesps total. 

45 NOD 

4 E : consossation sur un plein de carburant, avec 

47 + rappel de la quantité d'essence consommée 

48 256 depuis l’origine, et rappel du kilonétrage au 

A94LBL 08 plein précédent, 

50 2 

sl / prochaine vidange 

32 DSE Ÿ 

53 670 08 : sauvegarde des inforsations en NMesory, et en 

54 RTN cassette le cas échéant, 

SS4LEL À 

Jb "247:" ï Cette dernière routine vous perset de conserver 

57 ARCL 00 l'usage de votre HPAl entre deux caiculs, les 

58 ARCL 01 registres étant restaurés par XEG *OE" 

59 ARCL 02 

60 ARCL 03 ï Lai et (b] peraettent une siaple con 

ét ARCL 04 sans #ise à jour. 

62 ARCL 05 P représente la consossation aoyenne sur le plein, 

63 ARCL 06 T la consossation moyenne totale, 

64 AVIEM 

65 END À chaque desande d'heure, faites R/S pour obtenir 
l'heure courante, ou indiquez l’heure souhaitée, 








itation, 





Un petit exesple pour settre tout ceci en 
pratique: 
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*CHOIX* 24 RCL 03 
"COMPTEUR" 25 X(Y? 
“HEURE DEPART" 26 XEG 02 
10,05 CR/5] > “HEURE ARRET" 27 RON 
12,15 ER/S] "CONPTEUR* 28 - 
9905,00 ER/S1 --> "T=02:10/209KM" 29 CHS 
=) "M ETAPE=96KM/H" 30 CLA 
[R/S] —-) "HEURE REDEMARRAGE * 31 ARCL X 
15,30 R/S3 --) *ARRET=01:15" 2°" 
ER/S] =} "HEURE ARRET" 33 ARCL 01 
18,25 [R/51 --} "COMPTEUR" #°'H4" 
10600,00 ER/SI --> “T=04:55/693KM/H" 35 AVIER 
=) "M ETAPE=141KM/H" 36 XEQ 01 
[Di -—) "904KN/07:05* 37 "P=* 
-—) "MOY. ROUL.=128KM/H" 38 ARCL X 
[E] ==} "904KN/08: 20" "+" 
=} "HOY, TOT.=108KM/H* 40 REL 01 
--} "6=(870,2)" 41 RL 02 
[R/5J --} "KH219696,0)" 42 XEB 01 
ER/S7 --} *528,0KM 914,21" "HE" 
=} *P=8,3 T=8,9" 44 ARCL X 
45 PROMPT 
46 610 à 
Denis CASTELAIN (P56) 47tiBL 01 
48 E2 
497/ 
50 / 
OLLBL "O8" 1 SERIN 
02 "FOE" S24LBL 02 
03 GETR 3 FAIRE" 
04 SF 21 S4 XEQ 00 
05 "CHOIX" 35 BEEP 
06 PROMPT 36 AVIEN 
O74LBL à 57 RIN 
08 FIX 1 S8HLBL b 
09 "g={" 59 “PROCHAINE" 
10 ARCL 01 60 XEB 00 
it F2" &i FIG 
12 CF 22 62 BREL 03 
13 PROMPT 63 CF 22 
14 FS2C 22 64 PROMPT 
15 ST+# 01 65 F5? 22 
16 RL 02 é6b STD 03 
17 “KM? 87 RIN 
18 ARCL 02 6BiLEL 00 
IAE 69 "H VIDANEE * 
20 PROMPT 70 RIN 
21 FC? 22 TILBL À 
22 610 a 72 CF 29 
23 STD 02 73 FN 2 


CR/S] 
[A] 
969,00 IR/S] 
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T0 

75 ST0 05 
76 STO 06 
77 STD 07 
78 XEQ 03 
79 XER 04 
80 "H-DEPART" 
gi XEB 00 
82 510 04 
83 CLA 

84 ATIME 

85 PROMPT 
B6ALBL B 

87 XEC 04 
88 "H-ARRET" 
89 XER 01 
90 HR 

91 ST+ 05 
92 HMS 

93 RCL 00 
94 CHS 

95 XER 03 
9e + 

97 °T=" 

98 CV 

99 ATIME 
100 XC)Y 

101 "#7" 
102 FIX Ô 
103 ARCL X 
104 "HKM" 
105 AVIEM 
106 ST+ 07 
107 XOY 

108 “H ETAPE=" 
109 GT 02 
LIOLBL 03 
ALL "COMPTEUR" 
112 PROMPT 
113 ST0 00 
114 RIN 
1StLBL C 
116 XEQ 04 
117 "HREDEMARRAGE" 
118 XEQ 01 
119 *ARRET=" 
120 FIX 2 

121 ATIME 
122 HR 

123 ST+ 06 
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124 PROMPT 
125 610 B 
1263LBL 04 
127 "HEURE * 
128 RIN 
1298LBL 01 
130 RCL 04 
13 CHS 
132 XEG 00 
133 STD 04 
134 HAS+ 
135 RND 
136 RTN 
137ALEL 00 
138 CF 22 
139 PROMPT 
140 FC? 22 
A TIME 
142 RTN 
LASILBL E 
144 SF 00 
HASILEL D 
146 RCL 07 
147 FIX Q 
148 CLA 

149 AREL X 
150 "HKN/* 
151 RCL 05 
152 F5? 00 
153 RCL 06 
154 FS? 00 
155 + 

156 HAS 

157 FIX 2 
158 ATIME 
159 AVIEN 
160 "NOY. 
161 FC? 00 
182 "HROUL.=" 
163 FS2C 00 
164 "HTOT.=" 
1653LBL 02 
166 HR 

167 / 

168 FIX 0 
169 ARCL X 
170 FIX 2 
171 EXKN/H" 
172 PROMPT 
173 670 C 








| 


7AILEL € 
175 CLX 
178 SEEKPT 
1777E-3 
178 SAVERX 
179 "K77* 
180 PROMPT 
181 "FOB" 
182 SEEKR 
183 WRTRX 


The following tuo HP-41 machine language routines 
will enable you to make bar code fros HP-41 
sachine language (N-code). These bar codes will 
be type 0, which unused by the norsal HP-41 
systes, 


MCP - M-Code Bar Code Pattern 


NF works Jike BCP in the HF-41 Plotter aodule, 
and creates à pattern in the ALPHA register to 
sake bar codes fran. You will need the Plotter 
Module to print the bar codes on a HP7470 or on a 
HPB2162, 


The format of the bar codes is as follows: 
Bit 0->7 contains the checksua, shich is the 
sue of all the bytes with wrap-around carry, not 


a running checksus. Are 


Bit 8->1{{ are all set to 0, the type nusber of 
N-Code bar code. 


Bit 12-)15 contains the row nusber sinus one, 
aod 16 (example: rom 1 = 0), 


Bit 16-> 15#I0iN contains the inforaation of N 
N-code instructions, each occupying 10 bits. 


Bit 16#10N is the end indicator. If it is one, 
this rois the last row; if it is zero, you will 
be prospted for aore rous. After this row there 
will be between 1 and 7 bits to fill up the last 
byte in the row. 


The final bar code looks as follow: 


3 Type Seq. NH-code End ï 
3 Checksue =0 NO. instructions bitFiller : 


Instructions for use: 


Input: 

Y-reg.: 000000aaaabbbb Where aaaa-bbbb indicate 
the interval fron which to 
make bar code. 

X-reg.: ccc,dd Where ccc is the ron 
nuaber, and dd is the 
nusber of instructions in 
gach row. 1f dd=00 then il 
will be used (aaxiaus 
Jenght}. 


Nate that it is not possible to have a row nusber 
higher than 999, giving a saxiaus of Bk 10-bits 
words of bar code in one sequence. 


Output: 

Z-reg.: -ee,00 Where ee is the nusber of 

bytes in ALPHA 

register. Together sith the 
sinus sign, this is 
necessary to sake bar 
codes on a HP82182 (LBL 

01, CP, REL 2, BCO, RON, 

407, 670 01, RTN). 

Y-reg.: 000000aaaabbbb Unchanged. 

X-reg.: ccc#i,dd or © Increment to the next ron 
if not done, else X-reg. 
is cleared. 

L-reg.: 000000$#ffgg0g #fff is the nusber of the 
first instruction in the 
rom {if the instructions 
are nusbered sequentially 
#ron 0000 and onmard), and 
gogo is the nusber of the 
last instruction. 
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If used together with a HP7470 Plotter, the MCP 
function aust be follomed by the BC function in 
the Plotter Module, 


Error eessages: DATA ERROR if 
aaaa+2000<bbbb or dd>11. 
OUT OF RANGE if ccc)999. 


aaaa)bbbb, 


MESCAN - M-Code Bar Code SCAN 
MESCAN reads the bar codes made by MCP. You will 
of course need à mand. It works as follows: 


Input: 

X-reg.: 0000000000aaaa Where aaaa is the first 
address you want to read 
bar codes to. 


Output: 

X-reg.: 000000aaaabbbb Where aaaa is the start 
address and bbbb is the 
address of the last 
instruction (see 557) plus 
one. 

L-reg.: 0000000000aaaa True LASTX. 


If you want to read several prograss iesediately 
after each other, you can just repeat using 
MESCAN mithout thinking of input expect for the 
first progras. 


During the execution of MCSCAN the folloning keys 
are active: 


ON: Turns the HP4 off, 

<- à Terminates the MCSCAN routine, 

R/5 : Às above 

SST à: Asks for the next row (skips one rom) if 
it is not possible to read the current 
row, The words skipped will not be cieared 
as it say be possible to read the sissing 
rows later. the nusber of instructions 
skipped will be the nusber of instructions 
in the Last read row. If the first ron is 
skipped, the juap will be calculated after 
the first possible row has been read. The 
X-reg. will be updated after each read rom 
and after 557 (if row 1! not skipped). 


Once you have entered the MCSCAN routine, so8e 
routines in the mwand-ROM will be used, setting 
the tise-out period to approx. 7 ain. at noraal 
speed. You will be pronpted as usual: 
MW: RDY non’ to scan row nnn. Jf the MCSCAN 
routine meets an end-bit set to one, the routine 
will terainate. 


Error Messages: NO WAND if mand no present, 
W: CHESUM ERR if error in 
checksua, try again. 
N: TYPE ERR if you are trying to 
read non M-Code bar code. 
W: SEB ERR if you are trying to 
read in à wrong sequence {this 
sessage ill not occur if you 
read exactly 16 rows wrong). 


Both MCP and NMCSCAN will be in the BOOT RON EPROX 
set, expected to be cospleted soon. 


MCP and MCSCAN are released for non-commercial 
use only, by the type zero bar code described 
under NCP is of course free to anyone. 


{c) Copyright 1985 Steen Petersen, PPC-Densark. 


Proposition d’un standard langage sachine 41 en CE 


Les deux routines suivantes, vous persettent de 
tracer les code-barres de vos routines écrites en 
langage sachine (N-code). Ces code-barres sont de 
type 0, inutilisé par le systèse noraal de la 
HP4. 


HCP - Nodèle de code-barre pour M-Code. 
CP s'utilise cosse BCP du sodule Plotter de la 


41, et crée le aodèle des code-barres dans le 
registre ALPHA. Ensuite, pour les iapriaer sur 





une table traçante HP7470 ou iaprisante HP82162, 
vous devez utiliser le sodule Plotter. 


Foraat des code-barres: 


Bit © -> 7 contient la sosne de contrôle. Sons 
de tous les octets carry cuaulée, sais pas 
un checksum, 


Bit 8 -} 11, tous à 0, donne le nuséro de type 
des code-barres (N-Code). 


Bit 12-} 15 contient le nuséro de la ligne soins 
1, sodulo 16 lexeaple: ligne 1=0). 


Bit 16 -> 15#104N contient les renseignesents de 
N instructions M-Code, chacune occupant 10 bits. 


Bit 16#l0N, bit de fin. S'il est à {, la rangée 
courante est la dernière; à zéro, on recherche la 
suivante, Aprés cette rangée, il y a entre Î et 7 
bits pour resplir le dernier octet de la ligne. 


Finalesent, les code-barres ressesblent à: 


Type Seq. NN-Code End ï 


n 
13 Checksun =0 NO. instructions bitFiller 


Node d'emploi: 


Entrée: 

Reg. Y: 000000aaaabbbb Où aaaa-bbbb indique 
l'intervalle dans lequel 
on veut faire les 
code-barres, 

Où ccc est le nuséro de la 
rangée et dd le nosbre 
d'instructions par rangée. 
Si dd=00, alors, la valeur 
Hi est utilisée par 
défaut, {longueur 
aaxiaale). 


Reg. X: ccc,dd 


Notez qu’il est iapossible d’avoir un nuséro de 
rangée supérieur à 999, ce qui donne un aaxiaus de 
8k acts de 10-bits de code-barres dans un 
séquence, 


Sortie: 
Reg. Z: -e8,00 Qu ee est le  nosbre 
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d’octets en ALPHA, qui 
associé au signe soins, 
trace les code-barres sur 
isprisante HP821624 (LBL 
01, MP, REL 2, CO, RDK, 
1807, 6TD 01, RTN). 

Reg. Y: 000000aaaabbbb Inchangé, 

Reg. X: cec+#i,dd où © Incrérente pour la rangée 
suivante si le tracé n’est 
pas terainé. Sinon, le 
registre X est effacé. 

Reg. L: 000000#ffgggg #fff est le nuaéro de la 
presière instruction dans 
la rangée {si les 
instructions sont 
nusérotées séquentiellesent 

de 0000 à ....), gggg est 
le nunéro de la dernière 
instruction. 


Si vous utilisez la table traçante HP7470, la 
fonction MCP doit précéder la fonction BC du 
sodule Piotter, 


Messages d'erreur: DATA ERROR si  aaaa?bbbb, 
aaaa+2000€bbbb ou dd>11 
OUT OF RANGE si ccc>999. 


MESCAN - Analyseur de code-barres pour N-Code. 


MESCAN lit les code-barres créés par MCP. Vous 
avez bien entendu besoin d'un lecteur optique. 
Elle fonctionne cosse suit: 


Entrée: 

Reg. A: 0000000000aaaa Où aaaa est la prenière 
adresse dont vous voulez 
lire les code-barres. 


Sortie: 

Reg. X: O0000Caaaabbbb Où aaaa est la presière 
adresse et  bbbb est 
l'adresse de la dernière 
instruction (voir SST) 
plus 1. 

Reg. L: 0000000000aaaa LAST X réel. 


Si vous désirez lire plusieurs prograsmes les uns 
après les autres, vous devez seulesent réutiliser 
MESCAN sans vous soucier de l’entrée du ler 





progr anse. 
Durant l'exécution de MESCAN, les touches 
suivantes restent actives: 


ON Eteint La HP, 

€: Sort de la routine MCSCAN, 

R/S : corse ci-dessus, 

557 : Desande la rangée suivante (saute une 
rangée) s’il n’est pas possible de lire la 
rangée courante. Les aots sautés ne sont 
pas effacés s’il est possible de lire les 
rangées oubliées plus tard. Le nosbre 
d'instructions sautées sera le nombre 
d'instructions dans la dernière rangée 
lue. Si la prenière rangée est sautée, le 
saut sera calculé aprés la presière rangée 
qu'il aura été possible de lire. Le 
Registre X est resis à jour après chaque 
lecture et après SST (si la presière 
rangée est lue). 


Vous entrez d’abord la routine MCSCAN, quelques 
routines de la ROM du Jecteur optique sont 
utilisées. Elles settent la période d’attente à 
Tan à vitesse norsale, Vous devrez attendre 
l'habituel: ‘M: RDY nnn° pour analyser la rangée 
non. Si la routine MCSCAN rencontre un bit de fin 
araé à 1, la routine s'arrête, 


Messages d'erreur: NO NAND si le lecteur optique 
est inexistant. 
W: CKSUM ERR s’il y a une 
erreur dans la some de 
contrôle, recommencez. 
W: TYPE ERR si vous essayez de 
lire des code-barres de type 
différent, 
NW: SEB ERR si vous tentez de 
lire une mauvaise séquence {ce 
sessage ne Ss’affichera pas si 
vous lisez exactesent 16 
mauvaises lignes). 


NP et NCSCAN seront dans l'EPROM “BOOT RON" 
bientôt disponible. 


HCP et MCSCAN sont conauniqués seulement pour une 
utilisation non commerciale. Les code-barres de 
type © décrit par MCP, sont bien entendu libres 


d'édition pour tous. 


{c) Copyright 1985 Steen Petersen, PPC-DENMARK 


Traduction de P. Guez 


Albertslund, 13, 5, 1985 


DEAR FRIENDS, 


Following are tuo routines which sakes and reads 
s-code bar-codes. 


In the last asinute I discovered that RON's in 
wand LE and 1F are equal at a very few places, 50 
1 had to rewrite MCSCAN. It nom only uses the 
error-sessages in the and, and should now work 
with ali mand revisions. 


Resesber to change the port dependent juaps if 
you place the routines at different adresses. It 
is only necessary to enter the MCSCAN routine, 
because the e-code bar-codes for NP are included. 


Also included is a progras MCBAR which sakes 
a-code bar-codes on an HP-7470 plotter, with the 
help of a plotter sodule and the folloning 
s-codes routines: 


CODE : The norsal code routine, 

RIR : Rotates the X register one digit to the 

7 right, 

4-D : Decodes the last four digits in the X 

+ register and appends thes to the alpha 
register, 

NCP : Makes a pattern for a-code bar-codes, 


The progras prospts for a routine nase in ALPHA, 
a start address and an end address which both are 
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entered in the ALPHA register as hex digits. It 
then prospts for paper when necessary, and makes 
bar-codes as those sade for the MCP routine, 


Any questions aay be directed to: Steen PETERSEN 
PPC-Densark 
Gi. Landevej 19 
DENMBRE, 


Yours sincerly, 
Steen Petersen. 





CHERS AMIS, 


Voici deux routines persettant de créer et lire 
vos routines sicrocode en codes barres, 


En dernière ainute, je découvre que les lecteurs 
optique de version ÎE ou {F, sont très peu 
équivalents. Aussi, j'ai du réécrire MCSCAN. Ii 
utilise les sessages d'erreur du lecteur optique 
et peu fonctionner avec n’isporte quelle version 
de lecteur optique. 


N'oubliez pas de changer le “port dependent juap" 
si vous placez les routines à une adresse 
différente. 11 est seulesent nécessaire d’entrer 
la routine MCSAN. NCP est donné en codes-barres. 


Vous trouverez d'autre part le progranee MCBAR 
qui trace les codes-barres sur la table traçante 
HP7470, votre 41 aunie du module PLOTTER et vous 
aurez d’autre part besoin des routines sicrocode 
suivantes: 


: Code en BCD {ou NNN) un HEX en ALPHA, 





: Rotation du registre X de 1 digit vers la 
droite, 

4-D : Décode Les 4 derniers digits de X et les 

ajoute (APPEND) au registre ALPHA, 

NCP : Donne vos routines en CB, 


Le progranse s'arrête pour vous desander le nos 









de la routine en ALPHA, puis, les adresses de 
début et de fin. 11 s'arrête d'autre part pour 
resplacer le papier quand c'est nécessaire. 









Pour toutes questions, écrire à Steen PETERSEN. 





Philippe. 
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9688 898 “P” 

9681 883 “C" 

9682 98D “H° 

9683 OF8 READ 3(X) 
9684 884 CLRF 5 
9685 2A8 SETDEC 
9686 LED 

9687 864 PNCXO 193 
9688 226 C=C+1 SEX 
9689 226 C=C+I SEX 
968n 268 SETHEX 
968B 38) 

968C 888 ?NCXO B2E3 
968B 8A6 ACDC SEX 
968E 138 LDI Stx 
S68F 888 

9618 8n6 ACC SEX 
9611 2E6 2C#8 SEX 
9612 81F JC 9615 +83 
9613 8A6 ACC SEX 
9614 186 A=C SEX 
9615 39C R= 8 

9616 858 G=C ER:+ 
9617 106 A=A-C SEX 
9618 81B JHC 961B +83 
9619 885 

S61A A2 ?NCCC 2820 
961B 6F8 READ 3(X) 
%1C 38D 

9612 868 ?NCKO B2E3 
S61E 678 H=C ALL 
SEX 
9 87 


8 
è 
8 


ë 
8 


+ 


1 


Pie 
gPaer 
L'ë 


SERAARERARERS 
8È 


a 
eo 
TETE 88? 
35288 
2'BSFR RS 


RÉBSRERSSÉSRNSENE 
ë 


ÉSSBE 
& 

#È2 
RrR 
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2ÉSBRALSRES 

SHESSTABIET 
É ge-kañs Ex 
gs 8 


EASRSE 
#58 


$38 
Ls3s1tes 
piton 
RUrSREe 
é à 


SUEEEBED 
LR 


8 

ELLE 

RS EEE 
ä 


ô 


T 3CX) 


RE 
ë 


SFITSSATE 


BRESSESSSSNSSSSSSSÉSSS 
& 


8 
2 
58 
a2rS 


CRT SEE EEE ELEMENT ETÉREEEEEESSEES SES EPP PPEPEREET 


9671 848 ?HCXO 18D1 
9672 AE ACC ALL 
9673 6F8 CH ALL 


967C 168 HRIT 5CM) 
967B 186 A=C Sex 


9692 2FC RER 13 

9693 173 JC 9C1 +2E 
9694 1BC RER 11 

9695 1EE C=C+#C ALL 
9696 1EE C=C+C ALL 
9697 6FA COB M 

9698 338 FETCH SEX 


9699 239 C=C+1 M 
969R FA CO)B M 

969B 1E6 C=C+C SEX 
9690 1E6 C=C+C SEX 
9693 1EE C=C+C ALL 
969E 1EE C=C+C ALL 
969F 23C RER 2 

96n6 878 N=C ALL 

9%6n1 36D 

962 68C PORT DEP: 
963 344 XQ 9744 

96h4 85B JNC 96AF +8B 
96R5 2FC RER 13 

96h6 1EE C=C+C ALL 
9en7 38C ?FSET 8 

96R8 813 JNC 96AA +82 
96n9 22E C=C+1 ALL 
S6AR 1EE C=C+C ALL 
96AB 1EE C=C+C ALL 
S6AC 1EE C=C+C ALL 
SéAB 8A3 JNC 96C1 +14 
S6RE 898 JNC 96C1 +13 
9ERF FC RER 18 

96B8 6FA COB H 

96B1 338 FETCH SEX 
96B2 23A C=C+1 M 
9683 8FA COB NH 

96B4 1E6 C=C+C SEX 
96BS 1E6 C=C+C SEX 
96B6 230 RER 2 

9687 878 H=C ALL 


SCA 23A C=C+1 M 
CB 6FA CC) M 


CC 1E6 C=C+C SEX 
SéCR 1E6 C=C+C SEX 
S6CE 1EE C=C+C ALL 
J6CF 1EE C=C+C ALL 
9626 83€ RER 3 
9631 678 H=C ALL 
96R2 858 GC R;:+ 
963 31CR= 1 
96H 141 A=AEC RÇ 
3625 613 JHC 9607 +82 
9626 16h A=A+1 RC 
967 39€ R= 8 


8 
ÉÈE 


S& 
SA 38183 


s 


Bd» 


ês PS 


#ä 
£é 


LP 


MC 

M 

PORT DEP 
60 

C=# 


2BSSS: 
“28 Sete 
$ 


338 
GyTiis cs 


HBSSSRISÉES 
TRES TRÿBIT 


es 


Fos RS A RAS SP ASRRS 
285 
x 


2 
a 
+ 


882 


CÉPELEEREFE 
BSHBSSORES 


gas 
HE 
RTETRESS Le 


h 
9783 178 READ 5CN) 


9714 138 LDI 

9715 88h 

9716 38€ RSHFA ALL 
9717 38€ RSHFA ALL 
9718 38€ RSHFR ALL 
9719 246 C=A-C SEX 
971A 637 JC 9728 +86 
9718 31CR= 1 

971C 858 LDER 1 


$ 
Ë 


+ 


8 
€ 


18 


TRESLE 
ë 


AGTse 
ge as 


pr 
BE 


738 
58° 
ë 


SRAAHSSHRENRE 
sà 
p-" s 


E 
SEL 
Fe 5 


Æ 


ÉFÉCFÉFEPREREPERREFÉE 


ae 28 
& 


RÉBSASSENSAENRE 


SSSSNSSSNSSS 
HIASGRATI es 


9748 F3 
9741 3E8 RTH 

9742 388 SETF 1 

9743 813 JHC 9745 +82 
9744 384 CLRF 1 

9745 688 C=H ALL 
9746 31CR= 1 

9747 141 R=AEC RC 
9748 813 JHC 974 +82 
9749 16 A=A+1 RÇ 
974n 39 R= 8 

9748 658 GC ER;+ 
9740 36D 

9742 680 PORT BEP: 
974E 35B XQ 975) 

974F 38C ?FSET 1 


42° 
4 


975 178 RERD 5H) 
97SE 370 RER 12 

975 6B8 CO ER:+ 
9768 168 MRIT 5CH) 


9763 08 CCG BR:+ 
9764 18 HRIT 6CH) 


9765 1F8 READ 7(0) 
9766 37C RER 12 
9767 8D8 CCG ER;+ 
9768 1E8 WRIT 7(0) 
9769 238 READ 8(P) 
976R 37C RCR 12 
976B 898 C-6 BR:+ 
9760 228 RIT 8(P) 
9763 3E8 RTN 


HCP: 366 IHSTRUCTIDHS 


9258 88E “NH” 

9251 881 “A” 

9252 883 “C” 

9253 813 “5° 

9254 883 -C* 

9255 88) “H* 

9256 244 CLRF 9 
9257 138 LDI Stx 
9258 818 

9259 186 A=C Stx 
SISA 84E C=8 ALL 
925B 15C R= 6 

92SC 118 LDER 4 
925D 15C R= 6 

9DSE 222 C=C+1 ER 
9BSF 83F JC 9D66 +67 
9368 338 FETCH Sëx 
91 366 7A2C SEX 
962 3E7 JC 9DSE -84 
9363 846 C=8 SEX 
9364 83C RER 3 
9265 AB JNC 9D7A +15 
9366 3A1 

9367 688 ?HCXQ 22E8 
9368 301 

9369 8B9 ?NCKO 2CFE 
9D6A 38) 

9B6B 810 PNCXO 87EF 
9B6C GBE “N 

9363 68F “0* 

9D6E 828  ” 

9B6F 617 “W° 

9378 881 “A° 

9271 86E “N° 

9272 284 “D 

9373 30D 

9274 BAC ?NCXO 2BF7 
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9275 188 SETF 8 
9276 281 

9277 878 MCXQ 1086 
9278 3ED 

9379 69h ?NCGO 22FB 
SIA 138 LDI SEK 
9378 881 

9B7C 268 MRIT 30) 
9373 6F8 READ 3(X) 
9D7E 128 WRIT 4(L) 
937F BIC R= 3 
9288 18A AC R 
9381 87C RER 4 
9382 BAR ACC RC 

9283 8FC RCR 18 

9384 @ES HRIT 3(X) 
9285 278 READ 9(0) 
9386 878 N-C ALL 

9387 168 ?LORBAT 

9288 643 JNC 9298 +98 
9H9 388 REAB 14(d) 
JA 358 ST=C XP 

938B 140 SET 6 
9B8C 827 JC 9298 +84 
BSD 398 C=ST KP 

SE 16D 

SF 81C ?HCX0 875B 
9298 265 

9291 820 ?NCKO 8899 
9292 301 

9293 688 ?NCX0 2CFB 
9294 38D 

MS 810 2HCXO 07EF 
32%6 097 “4” 

9297 628 * 

9298 812 “R° 


€ 





9393 688 CH ALL 
9ME 186 A=C SEX 
9MF A1 

JA 614 PHCX0 BSES 
91 379 

JIA2 810 HCXO 87F6 
93 322 

SDR4 ONC PHCRO 2BF7 
JMS 149 

DRE 624 PHCXO 8952 
927 G4E C=8 ALL 


JDA SC R= 4 

9MRI 258 LDER 9 
JA 85€ R= 4 

938 22h C-C+1 RC 
JIAC 623 JHC 9BB8 +94 
SBAB 30H 

SBRE 68€ PORT REP: 
SIAF 292 GO 9E92 
9288 3CC KEY 

9h81 37 JC 9BAD -84 
9282 22C FI 2 

9283 3C3 JC 9ME -88 
9284 138 LBI SEX 
9285 818 

936 278 RAM SLCT 
9387 138 LDI S&X 
9288 6FE 

939 3F8 PRPH SLCT 
9BSA 638 RERD 8(T) 


923 22€ FI 2 
9BBE 62F JC 9BCI +85 
9BBF IE A=8 MS 
98 3) 

9BC1 680 PORT BEP: 
9BC2 227 CO 9E27 
903 838 READ CT) 
9BC4 31C R= 1 

SICS 18h AC RÇ 
SBC6 3EE LSHFA ALL 
9RC7 3EE LSHFA ALL 
93C8 16 R-C RK 


9232 178 JNC 981 +2F 
9333 638 READ @CT) 
934 149 R=HC RC 
9BS 613 JNC 9DD7 +82 
936 169 R=R+1 RC 
9DD7 17€ A=A+I MS 
SRB GER C)B RC 
9229 6CE C=8 ALL 
93mA 280 ?FSET 2 


1 
921 370 RER 12 
9BE2 @EE COB AL 
9BE3 388 SETF 8 
9RE4 36B JNC 9DD1 -13 
9ES 1EE C=C+C ALL 
96 1EE C=C+C ALL 
9BE7 380 SET 1 
928 817 JC 9BER +82 
9RE9 33€ RCR 1 


ë 
# 
ae 


Stx 
SEC 1E6 C=C+C SEX 
9 1E6 


SAS 
PLÉFÉ 
RGASBMELRRRE 
Spas“ s 
$ 


92F8 2CB 92D1 -27 
9BF9 880 7FSET 3 
SFA 623 JNC ME +84 
SRB 158 H=C ALL 
9BFC 648 SETF 4 

9BFD 28B JNC ICE -2F 
SE 678 NC ALL 

FF 088 SETF 3 
SES 273 JNC RCE -32 
9E81 260 ?FSET 2 
9E82 837 JC 9E88 +86 
9ES3 68€ ?FSET 5 
9E04 827 JC 9E88 +84 
9E8S 688 SETF 5 
9E86 84A C=9 RC 
9E87 288 JNC JDE -2F 
9Ee8 CE C=8 ALL 
9E89 33C RCR 1 
9E0R 260 ?FSET 2 
9E88 62F JC %E18 +85 
SE6C 83C RER 3 

SES 380 ?FSET 1 


9E6E 817 JC 918 +82 
9E8F ZX RCR 1 

9E18 184 CLRF 8 

9E11 3D8 COST XP 
9E12 88€ PFSET 5 
SE13 813 JNC 9E15 +82 
9E14 188 SETF 8 

9E1S 3B8 CEST XP 
9E16 18C ?FSET 8 
9E17 813 JNC 9E19 +82 
9E18 288 SETF 7 

9E19 6CE C=B ALL 
ELA 28C ?FSET 2 
JE1B 82F JC 9E28 +05 
SE1C 37C RCR 12 

JELR 38C 7FSET 1 
JELE 813 JHC 9E28 +62 
SELF 180 RER 11 

9E28 880 ?FSET 3 
9e21 JNC 9E26 +05 
9E22 64C ?FSET 4 
9E23 817 JC 9E25 +02 
9E24 158 M=C ALL 

9E25 6F8 CON ALL 
9E26 GE COB ALL 
9E27 149 

9E28 824 PHCXQ 8952 
SE29 3SE 78 MS 

SE2A 69F JC 9E3S +88 
JE2B 385 


à8 
LE 


“Ex 


2 
= 


HEURE 
CE*r 5% àæ 


SAADADAUUUNASANNENNEN 


ÉPÉÉPELELESEÉEEELEE 
















FE £ 5  ,f Re 
BRCE a8,s8 COR vs 2DER 0 D TER à 
Géte Énres Véus CELSSUEN CeBeBise à $ 
DESBNSSRERSASDASRENMEMSAESSEEENER Ê 
ÉSSSSGDENDERNESRENNBUNERERERÉERER € Ë 
& E L% ÿ $ Po >: e « 

$ ÊLS ef ÉEEPM x £ B-nS_ xxx. SE rw 

Lx 48 ÈS = apar ee Sänae. AT EE Fr Sante Dos 

PRET PECPI RETENU PRET PE EEEEL HR RbBBSE 


PEPITE PTE CNT ET IP TITI ENT ET 
HP I OT 





E_ 8 EE: 


à & x dx à 
TÉEDIPE LÈ 5e ss xs ke Ë 











JR En R- BF 
Sega _feg RE Démese TE déesse PP POLELDEPET ES ET RE 
2ÉJUBT Se Sn Bénin Bebe OSns ts IMBTOCNBITIoT es 
BHSBE ue Re SRISSSAHEYESS asae &s SSREGSSESARNAGE 

ÉÈÉ ATP IT TITI EEE TEE EEE 








ROUTINE: MCP 
ADR: 9600-9760 


ROW 41 (0000-0004) 


ROW 2 (000B-0015) 


RON (0046-0020 


ROW 0021-0028) 


RON (0020-0036) 


AOW (0037-0041) 


RON (0042-0040) 


RON 004D-0057) 


ROW 9 (0058-0062 


ROW 10 (0063-006D) 


RON (006E-0078) 


RON (0079-0083) 


RON (0084-008E 


RON (008F-0099) 


RON (0094-0044) 


ROW 16 (OO0A5-004F) 
Îl 
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ROUTINE: MCP 
ADR: S9600-976D 


ROW 17 (00B0-00BA) 


ROW 18 (00BB-00C5) 


ROW 19 (00C6-00D0) 


ROW 20 (00D1-00D8) 


ROW 21 (00DC-00E6) 


RON 00E 7-00F 1) 


RON 00F2-00FC) 


RON (00FD-0107) 


RON 0108-0112) 


RON (0113-0440) 


RON (041E-0428) 


ROW (0129-0133) 


RON (0134-013E) 


AROW (013F-0 4149) 


RON (014A-0154) 


| 
RON (0155-045F) 





ROUTINE: MCP 
ADR: 9600-976D 


ROW 33 (01460-046A) 


ROW 34 (016B-016D 


G1+LBL "MCB BC 
AR” X<> 85 
62 PIKIT "ROW ” 
63 CF 29 ARCL % 
64 FIX @ LASTX 
es . ENTERT 
86 ACOS RXR 

97 LDIR RXR 
88+LBL 69 RXR 

893 "ROUTINE RXR 
NAME : * ne CT 
16 AON 4-D 

11 BEEP SE 
12 STOP RDKH 

13 ASTO 68 4-D 

14 ASHF SE 
15 ASTO @1 3 

16 “START A RCL 64 
DR:" MOVE 
17 STOP LABEL 
18 ASTO 82 *E@ @2 
19 “END ADR RCL 95 
2% x=07 
28 STOP GTO 68 
21 ASTO 93 GTO 61 
22 AOFF 62+LBL @G4 
23 XEG 64 63 @ 

24 1 64 ENTERT 
25 STO 85 65 PEN 
26+LBL 61 66 MOVE 
287 « 67 “PAPER* 
28 ENTERT 68 BEEP 
29 63 PROMPT 
368 76 RDN 

31 FiL “2 

32 72 PEN 

33 ARCL 63 73 3 

34 CODE 74 ENTERT 
35 RCL 965 75 6 

36 MCP 76 STO G4 
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77 MOVE 
78 4 

79 CSIZE 

88 CLA 

81 LABEL 

82 “ROUTINE 


83 ARCL 6@ 
84 ARCL 91 
85 LABEL 
86 “ADR: “* 
87 ARCL 62 
88 *+-- 
893 ARCL 93 
98 LABEL 
91 5 
92 ST+ 984 
93+LBL 85 
94 3 
9S CSIZE 
36+LBL 82 
97 RCL 64 
38 7.6 
99 + 
188 STO 84 
181 131 
182 KX<=Y? 
183 GTO 64 
164 RDN 
185 3 
186 X<>Y 
187 MOYE 
198 END 


LBL'MCEARR 
END 
232 BYTES 





HF-F1E 


HP71 ASSENBLEUR 
Olivier ARBEY 
Michel MARTINET 
Jean-Jacques MOREAU 
Jean-Jacques MOREAU 
Jean-Pierre BONDU 
Michel MARTINET 
Laurent ISTRIA 
Michel MARTINET 
Jean-Pierre BONDU 
Michel MARTINET 
Michel MARTINET 


Jean-Pierre BONDU 


HP71 BASIC 
René OUVRAY 
Serge VAUDENAY 
Jean-Jacques DHENIN 
Xavier BILLE 
Pierre DAVID 


Serge VAUDENAY 


DEBUTER EN ASSEMBLEUR 

CHOC EN RETOUR 

END-UP ! 

DES REGISTRES D'ENTREE/SORTIE 
PILE À 16 NIVEAUX 

LES VARIABLES ET LA MATH STACK 

A PROPOS DE COMBINAISONS ET D’ ARRANGEMENTS 
HEURES-MINUTES-SECONDES 

ENCORE UNE ERREUR 

PROGRAMMATION SYNTHETIQUE 

LA PILE DE COMMANDE EN ASSEMBLEUR 


ADRESSE D'UNE COLONNE GRAPHIQUE (FORTH) 


ANOMALIE DU CALENDRIER (VERSION HP71:1BBBB) 
REMORDS (CHOC EN RETOUR) 

POUR LA RUBRIQUE DEBUTANTS 

MASTER-MIND AMELIORE 

D.A.0. (SUITE...) 


HANTISE SUR SATURNE 


IPC 
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Débuter en Assesbleur : les prisitives FORTH 


Vous désirez vous lancer dans l’Assesbleur du 
HP-71 mais vous reculez devant l’anpleur de la 
tiche ? Je vous comprends ! Aussi, cet article 
a-t-il pour vocation d'essayer de vous guider 
dans votre démarche de débutant... 


Tout d’abord, il faut savoir qu’en l’état actuel 
de nos connaissances, l'écriture de routines en 
Assesbleur sur 71 ne peut se faire que sous 3 
formes : LEX, prisitive FORTH ou BIN. Vous avez 
néanaoins dé vous rendre cospte (cf. les 
précédents JPC) que le LEX est de loin la forae 
actuellesent la plus usitée, ce qui est somme 
toute Jogique, vu la puissance de cette foraule 
d'extension de langage. Cependant, et d’après la 
Loi de Murphy, c’est aussi la routine la plus 
délicate à aettre au point, en grande partie à 
cause du problèae posé par l'écriture des 
routines de Parse et Decospile; celles-ci ont 
pour fonction de "voir" vos instructions Basic 
telles que Saturn les cosprend et les affiche, 
plutôt que sous la forse d’une série de chiffres. 
11 à fallu attendre la livraison des 1DS 111 pour 
que cette hypothèque soit levée, mais ceci est 
une autre histoire... Un LEX parfaitement au 
point dans sa partie Assesbleur sera totalesent 
inutilisable si vous ne pouvez pas écrire ces 
fichues routines, un peu comme si, n'ayant que 2 
roues pour votre voiture, vous soyez contraint de 
construire une patinette pour pouvoir vous 
déplacer... Heureusement, le Seigneur, dans Son 
infinie bonté, nous a donné le soyen de faire de 
l’Assesbleur sans être d’abord devenus d’infäses 
scribes paiens en Parse et Decospile. Ce aoyen, 
ce sont les Prieitives FORTH. 


Pourquoi des Priaitives et non des BIN, «se 
direz-vous ? Bonne question, dont la réponse 
réside dans le fait que tout prograsse, quel 
qu'il soit, a souvent besoin d'effectuer des 
entrées/sorties (saisie -de données, restitution 
des résultats d’un calcul, etc...); pour cette 
tche, il s'avère que La pile de données du FORTH 
offre une souplesse maxisale, contrairesent au 
BIN qui nécessite une déclaration de parasètres 
cf. IDS 1.11 ). Bien entendu, et c’est là le 
principal avantage, pas de routines d'analyse à 
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rédiger. Seules contraintes, il y à 3 (petits) 
pointeurs à saintenir: D0, DI et BLA]. Mais 
quelle puissance en contrepartie ! Un sisple 
Di=Di+ 5 ou Di=Di- 5 vide ou resplit d’un nosbre 
la pile de données; la aée opération dans un LEX 
oblige à rechercher les routines ad-hor, à 
sauvegarder tout un tas de registres, à jongler 
avec la pile sath... Le chaînage de vos routines 
est grandesent facilité: il suffit d'appeler vos 
sots les uns après les autres, tandis qu'un LEX 
ne peut en appeler un autre, tout devant être 
dans le LEX principal; en FORTH, on peut bricoler 
avec les CFA et autres PFA pour qu'une prisitive 
puisse appeler des portions d’une autre... 


Une prisitive FORTH résoud aussi le cas très 
grave connu sous le noe de Frustration du 
Prograsseur. Cosbien d'idées géniales ont été 
perdues par peur de l’Inconnu au sosent de passer 
à l’Acte 7 Ici, pas de crainte à avoir car vous 
n'êtes pas devant un LEX: vous écrivez et settez 
au point votre routine sous forse d’ une 
prisitive FORTH, quitte à l'adapter dans un LEX 
ultérieurement. Pour tersiner, deux règles 
pratiques pour le jour où vous aurez décidé de 
franchir le pas: 

- Attention aux sauvegardes ! De nombreuses 
routines assesblées ‘plantent" car elles font 
appel à des routines de la MEN sans que l’on ait 
fait  suffisassent attention aux registres 
qu'elles utilisent; toujours  soigneusesent 
cosparer les registres à sauvegarder et ceux 
eaployés dans les routines. 

- Utiliser la liste-objet ! L’Assesbleur du 71 
vous offre la possibilité d'éditer une 
liste-objet consentée après l’assesblage de vos 
routines. Ne négligez pas ce aoyen inestisable 
pour éviter les erreurs de syntaxe, aalgré la 
place séaoire "grappillée”. 


Avec le module FORTH/Assesbleur, nous avons un 
choix de possibilités extréaesent variées pour 
une initiation graduée à l’Assesbleur de Saturn, 
en désarrant avec l’écriture de primitives FÜRTH 
et jusqu'à, pourquoi pas, l'élaboration de votre 
propre langage évolué de prograssation, vouant 
aux Bésonies les Basic, Pascal et autre Prolog. 


Olivier ARBEY (5167-P118-T164) 





CHOC EN RETOUR 


À propos de REPLACES: 

J'ai refait le Lex REPLACE il est un peu plus 
grand que la prenière version. Je le tiens à 
votre disposition. La première version ne replace 
pas correctement la chaîne à retourner à BASIC 
sur la. Math Stack et utilise la partie basse du 
registre R4 (R4(A)). 


À propos de CLEX: 
bien lire à la ligne 5 du prograsne: 
if o then a0=a0+oté 


À propos de HTA$: 

Mon deuxiène Lex est un sangeur de Nath Stack, 
une nouvelle version vous sera proposée d'ici la 
fin de l’année. Avec HTA$ et ATHS, 


M. MARTINET #12 


Le fichier LEX que je vous propose est une 
excellente illustration des propos tenus par MA. 
David et Istria dans le JPC du aois d'avril, 
propos tenant à l’utilisation des POLLS et des 
BUFFERS. Mais il est aussi, et surtout, Île 
résultat de aon acquisition du tome III des IDS, 
ouvrage qui s'avère indispensable au prograsseur 
averti, 


Le LEX contient une fonction ENDUP qui “agit” de 


la atse sanière que la fonction STARTUP du HP71, 
sais Iorsqu'on l’éteint. Le principe en est 
sisple: l’ordre ENDUP place dans un buffer qui 
lui est réservé (Provisoiresent bENDUP a pour ID: 
*80B°) les aots-clés basic qui le suivent. Le 
buffer est creé s’il n'existait pas deja. Ainsi: 
ENDUP °DISP "123" € WAIT 2° 

Place la chaîne: DISP *123" & NAIT 2 dans bENDLP, 
puis y ajoute le caractère de code ASCII 13 ill 
sera utilisé plus tard par LINEP+). Le HP7i 
détruisant les buffers à chaque reconfiguration 
{CF JPC 23 d'avril 85 art. P, David p.30), il est 
nécessaire d’intercepter le poll pCONF6 et de 
spécifier au 71 de ne pas détruire notre buffer. 


Mais comment faire, se direz-vous, pour que le 71 
affiche: 123 et attende 2° avant de s'endorair ? 
C’est fort sisple: il suffit d’intercepter le 
poll pPWROF qui est envoyé par la routine DSLEEP 
(Deep Sleep}, d'appeler I/DFND qui renverra 
l'adresse du début de la chaîne contenue dans 
bENDUF (C’est à dire l’adresse du D de DISP ), 
puis de se brancher sur LINEP+ qui traitera DISP 
"123" € NAIT 2 cosse n’iaporte quelle ligne Basic 
{Cette routine est utilisée par RUN...), puis 5e 
branchera sur MAÏNLooP, à savoir la boucie 
principale (C’est elle qui déteraine toute action 
à entreprendre). 11 faut prendre soin d’alluser 
le drapeau #IINOF (TurN OfF ) avant d'appeler 
LINEP+, cer alors MAINLP se branchera sur DSLEEF. 
Le poll pPNROF sera donc de nouveau envoyé, ce 
qui nous oblige à tester l’état du drapeau FITNOF 
au début de notre routine (xeg) pour savoir ce 
que l’on doit faire. 


Principe de xeg: 


OFF ou BYE ou [#] [ON] 


PHROFF 


GOSUB  DSLEEP 


LC(2)  bSTARTUP 
GOSUB 1/0FND 
GONC out 

6OTO LINEP+ 
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out  GOTO MAINLP 


DSLEEP 


EOSUB FPOLL 
CON(2) pPHROFF 


SHUTDN 


G0SUB  CONFIGURE 


(HITNOF est baisse) 


Suivant #1TN0F 
Si levé: Retour 
Si baissé 


Note: 

Les routines fournies sont d’une fiabilité 
garantie. Vous pouvez les utiliser coase bon vous 
sesble (Appeler un sous-prograsse, éteindre un 
périphérique, afficher un aessage...). Par 
exeaple: 

ENDUP **11 est "&TIMES[1,518", à bientôt." 

I] est néassoins une opération qu’il vaut sieux 
ne pas réaliser (A soins que vous ne désiriez que 
votre 71 ne sache plus qu’afficher: Sytes error ! 
C’est la suivante: 

STARTUP *BYE* 

ENDUP *DISP “Non...” € NAIT Inf° 

Pour accéder de nouveau au controle du dit 71, il 
vous faudra faire un INIT:I au bon soment 
Aausez-vous donc !). Cela est possible sais ne 
préserve pas entièresent l'intégrité du système. 
Si vous éteignez alors de nouveau votre 71, vous 
ne pourrez plus le ralluser que par un INIT:3. Si 
vous tenez absoluaent à appliquer encore une fois 
la séthode précédente, sachez que vous n’y 
réussirez pas, Sais que vous finirez par 
provoquer un Mesory lost qui ne préservera 
aucunesent les ports indépendants. 
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MEMERR 
HOVEUS 
T/GALL 
1/0DAL 
STROVF 
REVPOP 


EQU 
EU 
EQU 
EQU 


D=AVAS El 


EXPEXC 
XXREAD 
DELAYd 
STRNGP 
LINEP+ 
I/DRES 
1/0FND 
SFLAGS 
SFLAG? 
STKCHR 
ADHEAD 
NXTSTH 
START 
bENDUP 


FLPDN 
#LTNOF 
pOONFS 


Eau 
EU 
EQU 
EQU 
EQU 


EQU 
EQu 
EU 
EQu 
EQU 
EQU 
EQU 
î 
EQU 
EQU 
EQU 


PPHROFF EQU 


ENDTXT 


Jean-Jacques MOREAU 


?ENDUPLEX" 


#5c 
û 
polhnd 


endst 
# 
endup 
# 
start 

4 
*ENDUPS" 
230 
*ENDUP* 
231 


*STARTUPS" 


232 


409440 
418177 
41197D 
aa 
ai 
40831 
#18460 
40F186 
#IAUE 
405493 
405790 
402626 
#118FF 
41188 
#1SSFA 
413640 
418504 
418187 
408448 
4808 

3808 


4CF 
40) 
4FB 
arc 


?808° est un No de buffer 
encore inutilisé. 





savebf 


pCONFE 


B 
savebf 
PPHROFF 


B 
xeq 
rtnec 


LC(3) 
; 
i 
GOSBVL I/DRES 
8=Û À 

1 

1 

BAT À 
RTNSXX 


bENDUP 


LE(S) 
t 
GOSBVL I/0FND 
GONC rtncc 
CD À 

: 

? 

RO=C 

LC(2) FIPWDN 
BDSBVL SFLAG? 
GONC out 
1 


DENDUP 


1 
LC (2) 
Î 
GOSBVL SFLAG? 


#LTNOF 


Est-ce le sosent de 
sauver le buffer ? 


Qui 
Non; le 71 veut-il 
dorair ? 


Qui 
-Non; c’est un BET. 


Ces lignes font partie 
d’un point de sortie. 
Cette place 

est inhabituelle, sais 
évite un 60TD 
supplésentaire. 

Trouve ce buffer, s’il 
existe, et enpêche sa 
destruction. 


11 est indispensable de 
désaraer Carry, que le 
poil ait 

ou non été intercepté. 
Rend la sain à l'appelant. 


I n'y a rien à faire si 
le buffer n’existe pas. 


Le poil intercepté étant 
un poll rapide, il faut 
iapérativesent 

préserver D{A). 

Les 3 lignes suivantes 
peuvent être supprimées si 
l’on désire que le HP71 
exécute le buffer aèse en 
sode programe. Mieux vaut 
les garder, en vue d’une 
utilisation future par HP, 
à soins que ce ne soit 
indispensable. 

La déaoniaque bête 
s’était-elle endoraie ? 


strngp 
delayd 


600 out 
3 
LC(2) 
î 
1 
GOSBVL SFLABS 
CDIEX 
1 
1 
1 
GOVLNE LINEP+ 
1 


AITNOF 


GOVLNE STRNGP 
GOVLNE DELAYd 


REL(S5) delayd 
REL(S) strngp 
t 


BOSBVL EXPEXC 
î 

GOSBVL XAHEAD 
t 

LCHEX 4#0D 
Î 
: 

P= Î 


Alors il ne faut pas la 
déranger. 

Anènera TITAN à se 
rendorair après un cours 
passage par 

MAINLP. 

D est inchangé depuis 
GOSBVL 1/0FND. 11 pointe 
sur la 

chaîne dans le buffer. 
Le buffer est copié, 
*tokenize”, puis exécuté. 


Décospile ENDUP. 
Cospile ENDUP: ENDUP 
[chaine]. 

Prépare 1’évaluation 
d’une expression (7), 
Retire l'en-tête de la 
chaîne sur la pile. 
Signale du BASIC en 
ASCII: la chaîne devra 
donc être 

“tokenize”, 


3 STKKP n’est pas un point d'entrée supporté par 
4 HP. Les possesseurs d’un HP-71 version 1BBBB 

# peuvent éventuellesent resplacer les lignes qui 
4 suivent par: GOSBVL 414550. 


51=0 0 
CDIEX 

EC À 
C+P+i 

Es-C À 
2ED À 
SOYES charer 
CDIEX 
DATI=C WP 
P= 0 
GOSBVL ADHEAD 


E=0 À 
LC) 2 
RO=C 


LE(S) bENDUP 


t  Desarsé pour que 

4 S ADHEAD rende la sain. 
t 

iT 

: 

ik 

# Erreur en cas de 

# N aénoire insuffisante. 
3 

tp 

4  Rajoute un en-tête à 
Ÿ la chaîne, 


Sauvegarde ]°ID du buffer 
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1 dans R2. 


# ENDUP ne diffère de STARTUP que par l'usage d’un 
t buffer d’ID différent. Les possesseurs de HP71B 
# version 1BBBB peuvent donc reaplacer ce qui suit 
f par: GOVLNG #1A4AF (C’est la suite de STARTUP). 


R2=C 

GOSBVL REVPOP 

CDIEX 

CROEX 

2A)C À 

GOYES charl0 4 Sort en cas de chaîne 

C=R2 4 nulle. 

6OSBVL 1/0DAL + Détruit l’ancien buffer 

Ÿ si nécessaire. 

GOVLNG NATSTH 4 Continue l'exécution 
charer GOVLNG MEMERR 4 d’une ligne auiti-ordres 
char0 B=A À # Copie la longueur 

€=0 À 4 actuelle du buffer. 

LC(2) 192 4 95 caractères + CR 

PAC À 

GOYES char40 

GOVLNS STROVF Chaîne est trop longue. 
char40 RI=A 

C=R2 4 C{A)= buffer ID, 

BOSBVL I/0ALL # Alloue au buffer l'esp. 

# occupé par La chaîne. 

GONC charer 4 Erreur en cas de aéaoire 

insuffisante, 

B=RÔ 4 À= pointeur de chaîne. 

DO=A ï 

CRI # C= longueur de la chaîne 

GOSBVL MOVEU3 4 Copie la chaîne dans le 

GOVLNE NXTSTM  # buffer 


NIBHEX 00 
LC{3) START 
GONC run 


NIBHEX 00 

LE(S)  bENDUP 

ADIEX Sauvegarde Di 

RI=A 

GOSBVL 1/0FND Recherche le buffer. ra 
1 Carry s'il existe. 
CDIEX D0= adresse du début de 

1 la chaîne. 

CDOEX 
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B=C À Sauvegarde l’ancien DO =PC 
BOSEVL D=AVNAS 
BR Réactualise D1, 
Di=A 
GONC bf2520 Carry est désaraée si le 
: buffer n’existe pas, 
1 Renvoie 
1 alors la chaine nulle. 
bf2510 A=DATO B Recopie un caractère du 
Î buffer. 
LCHEX 0D Peut-on faire autre chose? 
AC B 
GOYES bf2520 Qui 
CA B -Pas encore; il faut 
# placer le caractère sur la 
; pile 
GOSEVL STKCHR 
D0=D0+ 2 
GONC Obf2510 et passer au suivant 
4 {B.E.T.). 
b#2520 C=B À Restaure DO. 
D0=C 
GOVLNG ADHEAD  Renvoie enfin la chaîne à 
t l'utilisateur iapatient 
: et... 


Des registres d'entrée et de sortie. 


Les registres IN et OUT se présentent ainsi: 


IN 1514131211109876543210 
Soit 16 bits 


OUT 121109878543210 
Soit 12 bits 


Ce qui suit ne concerne que l'interaction 
clavier-CPU, 

Les 4 bits de poids faible du registre OUT (3-0) 
correspondent aux 4 rangées du clavier: 
































1 û 
ht Es on...+ 


3 3 


Rangées: D.../ 


Si l'on y place °F', les 4 rangées sont actives; 
8 la seule rangée supérieure 

Supposons qu'on y place 
sur Ja touch +, IN) 
COrres e se fait den 
W1512, 
ont g. 









re fort logique: 
.19 
se 3 À 





C'est ainsi qu'on peut savoir si une touche est 
ou n'est pas enfoncée. il est à resarquer que la 
touche ON a ur double traitene celui des 
autres touches (DUTIV)-INII4)); sais aussi 
INUS). Cette dernière interruption n’est donc 
pas masquable. 

Ceux qui ont lu son article td 








ce sése nunéro) 














sur ENDUF cosprendont désoreais pourquoi la 
touche ON n'est pas la seule qui réveille la 
machine (aène si c'est la seule qui t prise en 
considération}, En effet, l’instru SHSTON 
est précédée de: 

LCHEX 001! 


QUT=CS 














Coauzr 


La pile de est 
pratique qu'elle #e mangue horriblesent dès que 
je ae sers d'un ordinateur autre que le 71. Mais 


on en veut toujours plus, le refrain est connu 


une invention si 


äors 5 niveaux c'est bien, mais Î6 serait 
tellesent anieux ! (16 représente en effet un 


aaxiaun), L'ordre CMDié y pourvoit, pour le prix 


modique de 77 octets tout compris. & titre de 
effectue 


cosparaison le prograsge BASIC joint 
exactesent le mène travail et occupe 
plus une bonne centaine pour stocker 1 
alphanusériques intergédiaires: eéditez 
bienfaits du Langage Machine. Ceux qui n'ont pas 






sur les 











progranse 





ERIC 


la 


Jean-Fierre Bondu 


EDIEX 


FORTH 
routine 
pour les explications, et au plaisir de 
lire dans PC, 





o. 


arriveront 





Dear 











ése résultat en 
Reportez-vous au 


au 








ENT: 





fie des buffers et début 
de ia Pile de Corsandes 





CALE Mode Raw Buffer (fin 
de Cac Stack) 








CISI= 15 : nombre de 
boucles-{ 

603000 

it l’espace 


réservé à la Consand Stack 
par fé fois la chaîne 
203006 iqui code une 
entrée} 


CIS3= cospteur de boucle 


Th3= ADR+96 





Dis{5) RANBFR lorsqu'elles sont déposées sur la Math Stack, il 
P=p-1 F= 2 : noabre de boucles-1 n'en reste plus que 5. 
DATIEC à on poke 3 fois la 
longueur de la CHDS, mais 
pour quoi ?? 
=)Ad.haute 
F= 3 boucles exécutées? 
GONC CND20 non 
Dis=(5) HAXCHD =jAd. haute 
DATI=C 5 MAXCHD= CISI= 15 
GOYLNG NXTSTH 
=>kd.haute 
GOVLNE STDd 
GOVLNG STDp : 
END ï. Mantisse isaginaire 
. . Nantisse réelle. . 
=jAd.haute 


? Programme BASIC équivalent iE 0 
‘Ex pi. Nantisse inaginaire . 
10 SUB CHDST IE x pi. . Mantisse réelle . 
26 DEF FHR$(AS)=A$CSIRASCA,4JLASIS, 318A$12, 278 Fate le NS se ae os à % =>Ad.haute 
ÂA$C1,11 Chaîne 
30 DIM S$(961 © A=HTD(FRRS(PEERS ("2F576",5))) 1F OiLongueur iAdresse .1. .1 Chaîne... 
40 FOR I=1 TO 16 8 S$=5$8"000300" & NEXT I ï =>d.haute 
50 ES=FRR$(DTHS(A+96)) 8 POKE "2F580",E$2ESLES 
60 POKE DTHS(A),5$ 8 POKE "2F976",*F" 
70 END SUB …. . 1 =hd.haute 
SHORT tableau 
iBi#ibi Dia. /Longueur 
=)Ad.haute 
RERL tableau 
iCi#ibi Dis./Longueur 
ï. nrrssses =Ad.haute 
LES VARIABLES ET LA MATH STACK COMPLEX 5 tableau 
La naissance des 125 VI iDi#ibi Die./Longueur 
=>Ad.haute 


Au sois d'Avril, je vous proposais un article sur 
les sanipulations de chaînes alphanusériques sur i =)Ad.haute 
la Nath Stack. Cette fois-ci, je vous propose une Tableau de chaînes 
vue plus générale sur toutes les réprésentations *Filibi Dis./Longueur : Adresse 
de variables supportées par Hewlett-Packard. lise si 
Chaîne de tableau non- 
C'est en désassemblant la fonction TYPE de La ROM îF Silongueur Nos .10 OiNr.Eie. 
Maths que je se suis penché eur le problèse. Vous lessseusssessss. .! =)Adhaute 
trouverez ci-joint le Lex "MATHS" qui n’est 
autre que la fonction TYPE (H.P. id:002, tk:048). b = option base (1 ou 0) 
# = Nosbre de disensions {1 ou 2 et 0 pour les 
Nous ne recensons pas soins de 13 types différents variables scalaires 
de variables dans le systèse HP7IB mais 


=>hd.haute 


































resarquerez 
et INTE 





des questions 
calculs ou les 


La fonction TVFE: 


La fonction 


1 
SHORT tableau 

È tableau 
LEX 5 








ENDTAT 


FNRIN4 EQU  #0F238 
NIBHEX C1i 

Î 

1 

RSDATI 7 

Î 

1 


type 


que 
sont déposés 5 
la née forme. En effet, 
INTEGER ne sont rete: 





ues par le sy 
de place en 
affichages de rés: 
sosees en présence de nombres du type REAL. 


retourne un nosbre 
correspondant au type de variable. 


Heureuse Prograseation 


MMARTINET 












les noe 


èse que pour 
nt les 
tats, nous 








REEL, COURT, COMPLEX, 


entre 0 et 8 


INTEGER, SHORT et REAL 
COMPLEX et CONPLEX SHORT 
Chaîne et Chaîne de tableau 
TEGER tableau 





RT tableau 
EX tabieau 
au de chaînes (5 





es) 


à tous et à plus 


12 (5.1.6. #2} 


La fonction TYPE adaet 
n'isporte quel type de 
paranètre, 

On charge dans Aië-0) le 
début du spécificateur du 
parasètre se trouvant 





AN 


TY06 














t 
t 
ASRC 
î 
î 
0 ON 
14 
LCHE} 5 
PA P 
i 
4 
GOYES NN 
C=0 P 
i 
Fartné 
S 
1: 
t 
PRO 8 
î 
GOYES TY01 
4 
LCHEX D 
Cs&-C P 
FR P 
3 
ï 
î 
î 
BD  TYé 
; 





i 
Di=bi+ 16 
i 
ï 


Fnrtni 











sur la Nath Stack. 

Gn opére deux rotations 
circulaires, toutes les 
oprérations et tests 
sont effectués par la 
suite dans le registres 
AiS-14) et Cils-14). 

Ün charge dans 

Ciiéi la valeur hexa 

9. 

Si Ail4) est supérieur à 
9 nous ne sogses pas en 
présence d'un nosbre 
REAL, SHORT ou INTEGER. 
Alors on branche en NX. 
La variable est du type 
0, on charge 0 dans C{k) 
avant le retour à BASIC 
Si la variable est un 
tableau: 45) est 
différent de 9. D'où A=AtA 
5. 

Est-on en présence d'un 
Jeau ? 

on branche ajors en 


















Si 4US-14)= 00 nous 
en présence d'une 
Autresent Cil4 













une chaine. 

ns affaire à un 
noabre cogplex, on 
décrésente le pointeur Di 
pour sauter la signature 
et la partie imaginaire du 
nosbre: Di=Di+ 16 
Retour à Basic. 
C'est une chaine: on 
place Di sur la fin de 
la chaine, 
Rif) contient la 
de ia chaine en 
Di=Li+ Aiâ) 


Jongueur 
rtets. 








GONC Fnrn4 Retour à BASIC. 
LEHEX 7 C'est un tableau: A(P)-7 
1 varie de 3 à 7 {voir 
3 article). 
Esa-C P 


Fnrtn4 GOVLNG FNRTN4 Retour à BASIC (voir JPC 
t précédents). 


END 


A PROPOS DE COMBINAISONS ET D ARRANGEMENTS 


Dans tout l'arsenal des fonctions nathésatiques 
du HP7IB, il est Z fonctions que l’on cherche 
souvent et qui sanque à toute personne désirant 
t du calcul de probabilités: ce sont les 
traitant les cosbinaisons et les 

s. 

1.5.5, 2 et de bonne volonté, je décidai 
donc dernièresent de lever le voile sur les 
prebabi avec Le HP7IB, 

Peut-être est-il nécessaire de rappeler queiles 
sant les définitions des arrangesents et des 
cosbinaisons ? 
de N élésents pris P à P let 
, est le nombre de sanières qui 
persettent de disposer P éléaents pris dans un 
ensemble de N élésents, sans tenir coapte de 
l'ordre, 
L'arrangesent de N éléments pris P à P inotée: 
AUN,P)i est le nombre de aanière d’agencer ces P 
éléments en tenant cospte, cette fois de l'ordre 
dans lequeile ils interviennent. 
Les formules donnant ces 2 valeurs sont les 
suivantes: 
CUP 
AN,Pi=NT/(N-PI! 
Soit en fait: AÛN,P)=CEN,PDHP! 
Où N! représente Factorielle N, définie par: 
-LHiN-2)4..,4241, Et pour laquelle on a 
par définition: 0!=1. 
On déduira alors les résultats évidents suivants: 


DURE 

Hax (F)CIN,P)=C UN, N/2) 

CER,NI=C UN, 0)=1 
CA) 


Mais quelles sont donc les utilisations précises 
de ces 2 fonctions aux définitions pour le soins 
rébarbatives ? 
Une des branches des aathéeatiques qui fait cas 
de ces 2  aboninations est le calcul des 
probabilités. Voici 2 netits problèmes qui vous 
ouvriront la voie vers la connaissance suprême et 
divine de la statistique. Soit une urne contenant 
26 boules(Ni * nunérotées afin d’être 
reconnaissables. 
Soit  égalesent une personne d'intelligence 
soyenne et qui désire tirer 4 boules parai ces 
20. Sa qu on sera probablesent la suivante: 
cosbien d'ensesbies différents puis-je foraer en 
agissant ainsi ? 
Et bien le problèse que se pose cette personne 
peut être résolu par le raisonnesent suivant: le 
résultat sera équivaient si l’on tire d'abord une 
presière boule, puis une seconde, sans avoir 
remis la presière, et ainsi de suite. Au premier 
tirage, il a donc 20€N) possibilités, au 
deuxière, il n'y en a plus que 19{N-1), au 
troisiène, 18, et au quatriène, Le nosbre 
totai de p bilités, est donc: NP=20#19118417, 
Ce nosère est égalesent le nosbre de cosbinaisons 

de 20 élésents pris 4 à 4, soit: 
NP=C120,4)=4045. 
Prenons maintenant l’exespie du tiercé, C 

ins faut-il valider si l'on 

gner dans l’ordre, si 15 chevaux sont au 


reisonnesent du début est strictenent le aèe, 
l'on trouvera le nombre de bulletins égal à: 
5ti4313, Mais, en y regardant de plus près, 
s'apercevra que ce nosbre NB ne tient pas 
cospte de l’ordre d'arrivée des chevaux; en 
effet, les combinaisons 8,5,6, 6,5,8, 5,8,6... 
n'ont été cosptées qu'une fois, or, on veut 
toucher le tiercé dans l'ordre. Il faut donc 
aultiplier NB par le nosbre de pereutations de 3 
élésents, soit 3!. Le bon résultat est donc: 
NE=15t14#1345!. Soit encore: NB=A(15,3), 
On cosprendra donc l’isnense chasp d'applications 
de 2 fonctions telles que l'arrangesent et la 





coebinaison. Grâce au petit LEX qui suit, pour 
calculer A(H,P), il vous suffira de taper: 
ARRINÇP)3 quant au calcul de Cin,P) vous 
frapperez: CONBIN,P). 


Maintenant qu'on été rappelées quelques notions 
d'analyse combinatoire, revenons à notre bon 
vieux HP7IB, pour voir consent tournent ces 2 
routines, 

L’aigorithae de calcul est très siaple, puisqu'il 
suit Îles définitions. des fonctions données plus 
haut. En revanche, il est judicieux de se 
desander consent le HP 74 code les nosbres de 
ganière interne, et comment il effectue. les 
opérations sur eux, 

11 faut tout d’abord savoir que tout nosbre entsé 
dans une fonction (NOD{20,4),INT{S, 1), 
ANGLE (43,15)...) est codé sur 16 quartets: 1 pour 
le signe, 12 pour la santisse, et trois pour 
l'exposant et son signe. La précision de ces 
nosbres est donc de 12 chiffres significatifs. 
Nais Jorsque le HP 71 se amet à calculer, il 
cossence par traduire les nosbres dans 2 
registres de là quartets, peraettant alors des 
opérations avec 15 chiffres significatifs. Une 
fois Les opérations terainées, il suffit de 
lisser tomber les trois quartets supplésentaires 
pour retrouver un nosbre de 12 chiffres 
représentable par la sachine. Les opérations qui 
persettent de passer de 2 à {5 chiffres sont 
SPLITA,  SPILTE, celle qui peraet de 
passer de (5 a! 2 
Les fonctions A2 2-15, FESTRT, 
effectuent  respectivesent: ition, division, 
auitiplication, et factorielle sur des nosbres de 
15 chiffres. 

Voila, j'espère qu'avec ces quelques précisions, 
vous nous subaeergerez bientôt avec des tas de 
fonctions gathénatiques, toutes plus 
interéssantes les unes que les autres. 


L. ISTRIA (PPCH3,S1683) 


LEX  *COMBARR* 
I Ai 
NS6 © 


FARTNI 


POP2N 


ARGERR 


SPLITA 


SPLTRC 


û 
40F216 


A0EC8C 


40BF17 
AOCGEF 


400754 
400365 
4004: 
40E7 


NDTXT 
NIBHEX 8822 


STOCK 

SBVL uRES12 

BOVLNG FARTHI 
NIBHEX 8622 


1 
GOSUB STOCK 
GDSBVL STAB2 
AERI 
EOSBVL SPLITA 
G0SBVL FESTRT 
B 


t Donne un résultat en 
rendant la sain à BASIC. 

# Prend les 2 nosbres 

au sosmet de la Math Stack 
et les passe dans À et C. 
t Renvoi: Arg, non valide. 
# Traduit un 12 digits 
dans À en un 15 dans À/B, 
4 Traduit 2 12 digits dans 
A et © dans A/B et C/D, 
+88 = AB + CD. 

168 CD. 

TAB = FACTIAB). 

+ Transfore un 15 digits 
dans AB en 12 digits 

dans €. 

? Effectue des Tests sur 
het. 

4 Stocke À/E dans R2/R3. 

4 Rappelle dans C/D R2/R3. 
HAB = INTIAB). 


Ÿ Caicui de la combinaison 
dNetP, 





STRTST 


GOSBVL DV2-15 
GOSEVL uRES12 
EOVLAG FARTNI 


GOSBVL FOP2N 

DisDi+ 16 # fctualise Di 
GOSUE STKTST 

A=RÔ 

C=RI 

GOSUB iARR 


4 Calcul de L’arrangesent 
de Net P 


GOSBVL SPLTAC 

GOSBVL AD2-15 À N-P 
GOSBVL FCS # (h-P)! 
GOSEVL STAB2 


GOSEVL Si 
GOSEVL Fi 


GOSBVL TSTI2R 4 Nest-il inférieur à P ? 
RTNC 
GOTO ERA 
Ÿ routine de test de la 

t la validité des entrées. 
P=C 15 ? Nonbre négatif ? 
9P= 9 1 
GOYES ERR 
AC k 
Ps û Le nosbre est-il } 999 ? 
LCHEX 002 
JC À 
GOYES ERR 
GOSBVL SPLITA 
GOSBVL CLRFRC # Le noabre a-t-il un 

t partie fractionnaire ? 
RTNC 
GOVLNG ARGERR 


HEURES-HINUTES-SECONDES QU LES NOMBRES REELS 


Le HP4{ possède 4 petites fonctions nuaérigues 
permettant des conversions et des calculs entre 
les heures déciaales et les heures sexagésimales. 
Ces fonctions ne faisaient pas partie du systène 
d'exploitation de titan. 

Lorsqu'un nosbre réel est introduit dans un des 
registres du esicroprocesseur ou dans la aéaoire 
centrale, il est toujours codé sur 16 quartets il 
registre internei. 

Le chaap 5 (1 quartet) du registre contient le 
signe du nosbre (0 pour + et 9 pour -i. 

Le chaap À (12 quartets) contient la santisse du 
noabre. 

Le chasp X 13 quartets) contient l’exposant. 


FEDCBA9878543210 


La Osantisse ne contient pas de virgule, la 
position de la partie décisale est uniquesent 
fonction de la valeur du cheap À. 


Exeaple: 

#ù 16: 0000000000%i001: 
0.087 1916 7 9 0 0 0 0 0 © 0 0 0i9 9 &i 
PI 9285359000 


inf 


Nan 


0 1942345b789012:,500 
{Under flow) 





| 
| 
| 


| pseudo-registres Wet Y et 


Pour Inf et Na, 
sans inportance. 


la valeur de la santisse est 


Pour la aajorité de ces calculs internes, le 
HP7IB utilise un codage sur 15 chiffres 
significatifs et un exposant de 5 chiffres. Ceci 
est obtenu en codant le nosbre sur 32 quartets (2 
registres). 


on définit deux 
deux 

“scratch (Scl et Gc2) dans 
les opérations arithaétiques se 


Au niveau du aicroprocesseur 


pseudo-registres 
lesquels toutes 
déroulent. 


Le pseudo-registre X est la cosbinaison de la 
paire À et B, Ÿ la cosbinaison de la paire Cet 
D, Sci la cogbinaison de la paire RO et Ri et 
enfin Sc2 la cosbinaison des registres R2 et R3. 
R n'est jamais utilisé, 





AQuC 157727272999 %E.1.P 
1 HANTISSE.... 





L’exposant est codé sur 5 chiffres significatifs 
dens Je chasp À du presier registre de chaque 
paire. Le signe est codé de la aêse façon que sur 
12 chiffres significatifs et se trouve dans le 
chaap 5 du presier registre de chaque paire. Le 
deuxièse registre (B,D,RI ou RS) contient la 
santisse du nosbre, elle occupe les 15 premiers 
quartets du registre concerné. 


Exenple: je ne pense pas avoir oublié grand chose: 


0.27 


12270000000000000 
© Underfion 


12200000000000000: 


2,749 
ï 


S 
Qi? 729229999990 0 49 9: 
22705000000000000: 








1.234567E9012E-499 
101222229299 


720773 i 


2501 
1123456789012345 





-0 Ünderfion 





ea 





es 
e 
ss 
e 
e 
e 
0 
æ 5 
& 
& en 
ee 


2299F00 
6000000! 





Inf 


inf 





inf 
192272222792 700F00 
1212340000000000 6 
NaN 


722%00F02 
ü00000000: 





Ka 


13000200600000000 


La transforsation 12 =} 15 chiffres est effectuée 
à l'aide des routines internes “SPLITA", "SPLITC" 
et SPLTAC". *SPLITA" transforse le nombre codé 
sur 12 chiffres se trouvant dans le registre À en 
un noabre codé sur 15 chiffres dans le registre X 





(A8). 





La transformation 15 =} 12 est effectuée grûce à 
la routine “uRESi2*. Elle transforae le nosbre se 
trouvant dans X en un nosbre codé sur 12 chiffres 
dans le registre C. 






Les échanges X,Y =) Scl,5c2 sont réalisés grâce 
aux routines suivantes: STABI, EXABI, RCCDI, 
STAB2, EXAB2, RCCD2 et STCD2. 






LE PROGRAMME 





Les fonctions: 






HRIN) donne N en hh,d...d 





HAS(N) donne N en hh,anssd..,d 





HHS+IN,M) donne N+X en hh,nassd...d 






HXS-IN,M) donne N-X en hh,nassd. 





Les routines utilisées: 






AD2-15 
DV2-15 
EXAE2 XOSc2 
POPIR Voir JPC précédents 
SPLITA 
STABI 

CLRFRE 
STAE2 

RCCDI 

STCD2 

RCCD2 

uRES12 
8155 Xi 

FNRTRA Retour à BASIC, 

NP2-15 exit 

FUNCRO Scratch  (RAN réservée) 
FUNCRI Scratch (RAM réservée) 





















Voilà, la meilleure précision sera cbtenue via: 
OPTION ROUND NEAR. J'espère que ces 4 petites 
fonctions vous seront très utiles. 







Heureuse Prograaaation. 





TT2 


TÂT4 


TÂTE 


AD2-15 
DV2-15 
EXRE2 
POPIR 


Michel MARTINET #12 


LEX HLEX 


TITLE HMS #44 UTILITIES 444 01/05/1985 


CON{2) 92 
CON (2) 60 
CON(2) 83 
CON (5) 
NIBHEX F 
REL{4) 1+iT{TB) 
CON(#) 6 
EON(S) 0 





e 


CON(S) (TXTH)-iTATE) 
RELIS) HMSte 
CON(1) 15 





21-(TATE) 
HMS-e 

315 
ETXTS3-UTXTE) 
HHSe 

CON(L) 15 

CORIS) (TXT4)-(TÂTE) 
REL(S) He 

CON(1) 15 





CNE) 7 
NIBASC *HHS+° 
CON(2) 60 
CGNiL) 7 
NIBASC “HMS 
CON(2) 61 
Conit) 5 
NIBASC *HHS° 
CONI2) 62 
CON() 3 
NIBASC °HR° 
CONI2) 63 
NIBHEX 1FF 


EBU 400385 


EQU  #0C4AC 
EQU  H0D40E 
EGU  #0EBFD 





SPLITA 


EBU 
EDU 
EBU 
EU 
ERU 
Eu 
EU 
EBù 
E0ù 
EU 
EU 
EU 


NIBHEX 
ST=4 


NIBHEX 
ST=0 
6OSUB 
GOSUS 
SOSUE 
C=0 
P= 
LE) 
D=C 
Csc-1 


AÔCEBF 
400309 
HOC6F4 
402469 
#0D3FS 
400427 
40041 
400994 
#0E 198 
40F258 
HOCATA 
#2F878 
A2FBAB 


8822 


HR 
RESTRY 
SB155 
Hj 


8il 
] 
INTX 
Y=50 
MAS5 
ñ 

13 

ë 

# 

À 


BOSBVL MP2-15 


GOSBVL 


RCCD2 


OSBVL AD2-15 


GOSUB 


Y=100 


GOSEVL DV2-15 


60T0 


HD 


NIBHEX 81 
S1=0 Ô 
GOSUB INTX 
GOSUB Y=100 
An,55 


605 

BOSBVL DV2-15 
BOSBVL 

GSBVL 


» en œe en po en 
SE 


E 

Ê 
ï 

En 


GOSBVL MP2-15 
GOSBVL STAB2 
GOSBVL CLRFRC 
GOSBVL RCCD2 
GOSBVL STAE2 





GOSUB ADCHSX 
RTN 


E=0 
P= 14 
LCD) 6 
DEC N 
EsCti À 
RTN 


RESTRY CDIEX 
RO=C 
DI=(5) FUNCRI 
C=DATI K 


CDIEX 

DI=15) FUNCRO 
DATISA NH 
Di=Di+ 16 
AB OK 
DATISA NH 
DI=C 

Di=Di+ 16 
RTN 


ENCORE UNE ERREUR ! 


Lorsque l’on possède un LEX traducteur de 
messages (FRALEI...), les tests d'erreur sont 
plus délicats à réaliser. Ceux qui n’ont pas le 
aodule FORTH se contenteront pour l'instant de la 
fonction utilisateur indiquée. La fonction EXTERR 
adset pour arguaent un nuaséro d'erreur, et 
renvoie soit Ô (bon numéro), soit 1 {vous avez 
tout faux...). 


Far exesple tapez: CAT 125, Le nunéro de cette 
erreur (‘Invalid Specifier‘) est 58, ou 1058 5: 
FRALEX est en sachine. Tapez maintenant 
EXTERR(S8), le résultat est { gêne si ERAN est 
1058. En pratique il suffit donc de proposer le 
code “noreal, ce qui est plus siaple à la 
rédaction, plus clair à la relecture et enfin 
plus court dans un prograsse ! 


J'espère que ces explications sont assez claires 
cer il est tard et ses pensées ne le sont plus, 
et je suis trop fatigué pour ae relire. Et puis 
après tout, un peu à vous de travailler ! 


Sans rancune, et à la prochaine réunion ! 


Jean-Pierre Bondu (433-5164) 


LEX  *XERRLEX’ 


ENTRY XTERR 
CHER F 


NIBHEX 811 un argusent nusérique 
GOSBVL RNDÉHX  ALAJ= X en hexa 

Es8 À 

EOSBVL RS=DIC RSLAÏ= CIAI ; RSL9-51= 
LC{S) ERRN 
CDIEX 

#0 HN 
C0 
A=DATI B 
LC(3) 1000 
DC À DCAI= 1000 

GOSBVL A-MULT  ALAI= (No LEX) 41000 


ACAJ= No de LEX de ERRN 





C=ÿ À 
D1=D1- 2 
C=DATI B 
AER#C À 
B=A À 
GGSBVL DIC=RS 
AC À 
k=ÿ  S$ 
7ASE 
GOYES 
702) -X ? 

oui: ajouter 125 

sinon ajouter 1000=872+12: 


CIAÏ= nuséro d'erreur 
ALAÏ= No d’erreur foraaté 
BLAJ= ERRN 

CEAÏ= X ; Di= sosset MOTK 
ALAI= X 
À valeur du test 


plus court que LE(S) 128 
SERRN 


ALAJEX aodifié ; B[A] 
X#ERRN ? 
oui: on renvoie Ô 


El 


=A 
SR 

Di=Di+ 16 
GOVLNG FRRTNI 
END 


Cta]= X flottant 


R3 est utilisé. 


PROGRAMMATION SYNTHETIQUE 


Encore quatre petites instructions 
Hewlett-Packard nous avait caché: 


que 


HNIBHEX 818 
NEBHEX 819 
HIBHEX 81 
NIBHEX 81B 


(ASRBSO) 
{BSRB50) 
{CSRBSO) 
{DSRBS0) 


Pourquoi pas ? 


Ces quatre instructions opèrent un déplac 

{ bit vers la droite entre le chaap 

chap "0" des registres respectifs À, 8, Cet D. 
Contrairesent aux instructions rSRB ou rSRC (fe), 
ces quatre opérations n’araent pas Le Sticky Bit 


{8B). Lorsque le bit perdu (bit de poids faible 
du champ “0") est égal à 1. 


Exeapie: Supposons que nous ayons dans le 
registre D les codes suivants: 


1234 
23 


8901 
tion 3 


i 
45678 


Éprès exécution de NIBHEX 81B nous cbtenons: 


212 
(001931 2 
16015) 11001) 

Voilà, il y en- d’autres encore sais elles ne 
sont pas encore très claires... à la prochaine. 


Hichei MARTINET (#12 SIG42) 


LA PILE DE COMMANDE EN ASSEMBLEUR 


La pile de cossande peut-être prograenée de À à 
C'est un outil aerveilleux qui à sa 
n'existe nulle part ailleurs que 

hez Heslett-Packard. 
la venue du HP7IE, nous connaissions la 
basic SETCHDST qui faisait ja joie de 

tous avant le sodule Forth/Assesbleur. 
près quelques aois de aise en route, NOUS S0RRES 
aujourd'hui bien avancé en satière d'assesbieur. 
de vous propose le Lex STKLEX qui est en tout 
point sesblable à SETCHDST sais qui a le sérite 
de ne faire que 114 au lieu de 278 octets et qui 
est incosparable au point de vue rapidité. 


La syntaxe: STACK N°, et le tour est joué. La 


co e est prograsaable et utilisable après 
THEN/ELSE. 


Michel Martinet #12 (SIG#2) 





du prograsae BASIC. 


LEX  *STKLEX LC(S) 6 # 
I #5 GOSBVL A-MULT La 
H56 0 C=D À Fe 
POLL 0 C=CtA À se 
ENTRY STKke ! RANBFR Indentique à la ligne 120. 
CHAR  #D # ## 
KEY  "STACK? A 
TOKEN 50 è jou 
ENDTAT G A 


A-HULT EOU  +18349 : 
CLCBFR EOU  #2F576 ne 
EXPEXC EQU  #0FI86 ia 
FINDC EGU  #03493 063600 Boucle FOR/NEXT (Lignes 
FIXP EBU  #02A6E i 80 à 100 du programe.) 
FLIDH EQU  #18225 DATISC 8 2 
MAXCND EGU  #2F976 Asa-1 ne 
NUTSTH EOU 408448 Di=Di+ ee 
RANEFR EGU  +2F580 2840 Fe 
GOYES Boucle 
REL(S) STKd Di=(5) MAXCKD Ligne 140 
REL(S) STKp ER Restitution du nombre de 
SETHEX 1 niveaux. 
GOSBVL EXPEXC Routine qui place le 
t parasètre de STACK dans à 
3 AIN), GOVLNE NXTSTH Fin de prograsse. 
74=0 S Le noabre est-il positif ? 
GOYES fltdh Qui, on branche en fltdh GOYLNG FIXP 
pour le transforaer en 
Hexa, 5 GOVLNG FIXDC 
S'il est négatif, on et 
Ô pas défaut, END 
GOSBVL FLTDH Dec. (A(N)) devient 
1 Hex. (A(A)) . 
2880 À Le nosbre est-il égal à 
1 zéro ? 19 CALL SETCHDST(16) 
GOYES STEXG Ok on branche pour 20 SUB SETCMDST{X) 
ï l'exécution de l’ordre. 30 DEF FNRS(AS)=ASCSIRASIA, 41LASCS, SILASC2, 2] 
Azâti À Autresent on reaplace Ô LASEI,11 
1 par Î. 40 IF XC1 THEN X=1 
CIS) 16 CtAI= 00010 50 1F X>16 THEN X=16 
PRET À Le parasètre est-il { 172 60 DIN S$[X46] 
GOYES STK10 70 A=HTD(FNRS(PEEKS(°2F576,5))) 
AC À A(A)= C{A)= 00010 par 80 FOR I=1 TO X 
3 défaut si le parasètre est 90 5$=562 000300" 
ï supérieur à 16. 100 NEXT I 
RO=A Sauvegarde 110 ES=FNRS(DTHS (A+X46)) 
D1={5) CLCBFR Exécution de la ligne 70 120 POKE *2F580°,E$LESLES 





150 POKE DTH$(A),5$ 
140 POKE *2F976°,DTH$(X-1)05,51 
150 END SUB 


ADRESSE D'UNE COLONNE GRAPHIQUE 


Le not ADR-AFF siaplifie la gestion -de 


l'affichage en FORTH. C’est une priaitive, car 
destinée à servir de support à une ani f 
favoriser la vitesse 


graphique: il fallait 
d'exécution, 

Son rôle est le suivant: vous fournissez je 
nuséro de la colonne que vous désirez adresser, 
ADR-AFF vous renvois Son adresse méagire, Une 
colonne fait 1 octet, mais l’adressage se faisant 
par quartet, c'est l'adresse du quartet de poids 
faible qui vous est rendue. Autresent dit 
l'adresse du quartet le plus bas de la colonne. 

Un exemple: DECIMAL 20 ADR-AFF H, --> 2E12À 
adresse de la colonne 20, Essayez 255 20 À 

C' ABORT pour saturer La coionne 20. Convaincu 
L'argusent doit être cospris entre { et 132. Si 
tel n'est pas le cas, 0 est renvoyé lex: 148 
ADR-AFF -} 0), 

Pour rerolir l'affichage, définissez le aot : 
DECIMAL +: FULL-AFF 295 132 à D DUP I C! LOOP ; 
Vous trouverez Le aot ADR-AFF défini en FORTH; je 
vous suggère de rentrer les 2 et de comparer la 
vitesse d'exécution .. À la prochaine ! 


Jean-Pierre Bondu (#33) 


*ADR-AFF* 
HE07C teste si octet ALB] entre 
CLB] et CI3,21 

42€104 début Driver 1 
42E200 e 12 
42€ 300 x CR: 


A=DATI À 
fs&-1 À 
LC(S) 131 
24 À 
GOYES Nul! 


LCIS) 42000 
GOSBVL RANGE 
60C  DD2 
A=AtA À 
LC(S) DDIST 
1 
AstC À 
4 
GONC  Aür 
LE(S) #5D2E° 
EC E 
GOSBVL RÈNGE 
60c DIS 
E=i BE 


DATI=A À 


ALAÏ = colonne 
d=colonne(=131 


colonne>131 ou 60 ? 
cui: renvoyer Ô 


intervalle = [45,03 
colonne dans l'intervalle? 
non: voir Driver 2 

1 colonne = 2 quartets 
que l’on ajoute à 
l'adresse de la colonne { 
pour obtenir l'adresse de 
la colonne en CA] 
renvoie le résultat 
intervalle = [93,44] 

DCB] = 46 

dans l’intervaile ? 

non: voir Driver 3 


adresse relative de la 
colonne dans le Driver 2 
quartets -à octets 


AL] = adresse absolue de 
la colonne 

que l’on renvoie 

SE = 94 

ALB] = adresse relative 
de la colonne dans le 
Driver 3 

quartets -) octets 


AI] = adresse absolue de 
colonne 
on renvoie ALA] 


RTNCC Retour avec Carry Clear 


#=Q À 
ï 

60€ dr 
END 


Argusent non valide: on 
renvoie Ÿ 





René OUVRAY, 

50 rue de Courbevoie, 
92000 NANTERRE, 

Tel: (1) 721 19 93 


Nanterre, Le 6 aai 1985 


Hewlett-Packard, 

Division Inforaatique Personnelle 
S.8.V, Calculateurs de Poche 
F-91947 Les Ulis cedex. 


Objet: Anoualie constatée eur des fonctions du, 
HPTIB. (Fonctions CALENDRIER - SETDATE - DATE - 


DATES - )). 


Messieurs, 


Faisant suite à 

téléphonique du 3 sai dernier au No 907 

cours de laquelle un technicien de vos services 
dont j'ignore les coordonnées) a été ais a nêse 
de #e confiraer le bien fondé d’une anomalie que 
j'ai constaté sur le fonctionnement du HP7IB ..….; 
je vous adresse ci-joint, une analyse détaillée 
de ce "hiatus” ainsi que le renède que je propose 
en l'absence de tout autre que vous pourriez 8e 
suggérer. 


Je vous signale qu'étant un usager 
enthousiaste des produits HP, je n'ai cosauniqué 
à personne d'autre, La découverte de cet incident 
dont l'iaportance pratique est d’ailleurs assez 
liaitée, bien que regrettable, 

Veuillez agréer, Messieurs, l’a: ce de 
ses sentiaents les seilleurs, 


HP7IE - Fonctions SETDATE 
ttiiitt 


: 
ï 
ï 
3 
: 
î 
+ 
ï 
: 
î 
ï 
3 
i 
i 
ï 
î 


Erreurs concernant un ensesble de résultats 


| fausser les 


relatifs à un sous-groupe d'années bissextiles. 


1.- Rappel des principes fondamentaux. 


SETDATE: Qui opère sous le contrôle de l'horloge 
du systèse, peraet l'introduction d’une date 
quelconque sous l’une des deux foraes suivantes: 
*AaA/MM/dd" en style alphanuérique: (*85/05/05%), 

ou: AñJJJ en style nusérique: (85125). 


DATE: Affiche le jour réel en fonction du jour 
introduit à l’origine et actualisé par l'horloge. 
({25èse jour de l'an 85). 


DATES: Affiche 
AA/MM/JJ (sans * 


ce are jour sous la forae 


La séque a) SETDATE(...) ... ENDLINE 
perset d'introduire une date quelconque dont la 
validité relative est controlée par l'indicateur 
binaire IVL!-8) qui provoque le aessage d'erreur 
Nil “invalid Arg", si l’argusent n’est pas 
représentatif d'une date “plausible; notassent, 
29 février pour une année non bissextile... AA3éé 
pour un 3i décesbre d’une année non bissextile. 
bi DATE ou DATES affiche et rend disponible sous 
la forse nusérique ou alphanumérique, l’argusent 
en cours dans l’horloge. 


d'où l'intérêt d'éviter travailler sur des 
dates aux environs de sinuit... Le risque de 
résultats attendus du fait de 
l'horloge. 


EN PRINCIPE: L’horloge du HP7IB est sensée 
tenir compte des années bissextiles, 


2.- Vérification et contrôle du fonctionnesent du 
systèse. 


Le traquenard de l’an 1900 {non bissextile) est 
respecté: (à la condition de l’introduire sous la 
forse: “1900/12/31* et non pas: "00/12/31" qu 
est  correctesent traitée pour l'an 2000 
{bissextile). 
Résultats: 1900/02/29 
1900/02/29 
1900/12/31 


DATE Invalid Arg. 
DATES Invalid Arg. 
DATE 365 





1900/12/31 = DATES 1909/12/31 
2000 ou 00/02/27 DATE 69 
2000 ou 00/02/29 DATES 2000/12/31 
00/12/31 DATE 366 
00/12/31 DATES 09/1273 


Les années Àâ= 00; 04; 08; 20; 24; 28; 40; 44; 
495 605 64; 68; 60; 64; 68. Sont traitées 
correctenent. 


Exesples: 44/02/25 
44/02/27 
Bissextiles 


mouun 


“ou 


“ou 


.— Détection de la divergence de princi 
des années bissextiles: 12 - 16 
92 - Gb; 72 - Th; 92-96. Les années de ce 
us-ensesble sont traitées e non bissextiles. 


Elles ne provoquent pas le nessage “Invalid 
." pour le 29/02. 
Le 29/02 et le 01/03 donnent la sèse valeur: 


03/01 = 60 c/ 61 pour le fer sers, 
3 365 ci 3üé réel. 
c) Tous Les jours interaédiaires sont ainorés 
d’une unité, 


4 CONCLUSION: Si "AA" est divisible par 4 et 


non par 2 et si "MM" est plus grand que 2, did 


réel est égal à "..dJJ* (HP71) #1, soit j j ji. 


REMORDS 


Attention: certains passages de cet article 


pourraient choquer les ânes Les plus fragiles, 
Les plus endurant devront tout de nène s’araer 
d’un bon tube d’aspirine et de calaants... 
de prends donc de aa sain droite aa pluge qui se 
trouve à vingt centinètres de ma chaise pour 
étaler un peu d'encre sur un papier de 185 
centieètres carrés de manière à vous faire 
comprendre la honte et la dépriae qui #e tenaille. 
J’essère que aon écriture tremblante ne se fera 
pas trop ressentir sur le listing que vous 
parcourerez de vos yeux conpatissant, 
Ce n’est pas sans une certaine gêne que je doit 
vous avouer tous ses resords, les yeux fixés sur 
ses orteils et la œain gauche ae grattant 
gachinaiement la nuque, au sujet d’une erreur de 
sa part, (soupir! 
J'ai, ci, Gerge Vaudenay, fait une erreur de 
prograssation. (sanglot!} 
de vous persets de ne sépriser, de ae aaudir, de 
#'envoyer vos insultes (que vous adresserez au 
journal, bien entendu), je suis ispardonnable. 
Le teaps de se soucher bruillasent et de jeter 
son aouchoir Jliquéfié à la poubelle, et 
j'explique son erreur, ce qui se soulagera sans 

. tsnifo) 

pauvres cospositeurs en herbe que vous êtes 
auront renarqué dans Le JPC nuséro 22 à la page 
sl erreur sonstrueucse qui saute aux yeux du 
preaier iabécile venu: à La ligne 280, j’a 
oublié de aultiplier le T du STR$(T) par T0 
{STRSITATO)), ce qui eu pour conséquence de faire 
des silences sonstrueux. (ouff!} 
Cet articie fut donc un événesent à deux titres: 
il traite d'un programme eusical sur 7!, et 
cosprend une erreur de sa part. 
de réciase donc péniblesent votre clésence, et 
vous donne ren vous au prochain article, si je 
ne se suis pas fait hara-kiri entre teaps. 
Après tout, errare hunanus est ! 


Serge VAUDENAY 


POUR LA RUBRIQUE DEBUTANTS 





nr25 vage 


Voici un 
l'heure. 


double intérêt 


tout petit prograsne destiné à afficher 
Pour les chevronnés du HP7i ce prograane 
contient une erreur ! Donc cet exercice offre un . 


une initiation au sagnifique 


BASIC HP et un test pour les vétérant. 


à DELAY 0,0 


10 ON TIMER #1,1 GOSUE 30 
20 AS=KEYS @ IF A$="" THEN 20 ELSE PUT A$ @ END 


30 DISP CHR$(27)4 


AS)&TIMESCI, 218" h * 


&TIMESCA,518" an "&TIMESC7IL" 5° 8 RETURN 


5 DELAY 0,0 


10 ON TINER #1,1 


60SUB 30 


20 AS=KEYS 


e IF A$="" 


Cela perset de ne pas 
provoquer de "ralenti à 
l'affichage. Lire DELAY dans 
le manuel de référence. 

Il existe 3 cospteurs qui 
persettent d’interrogpre un 
un  prograsse à intervalles 
régulier. La valeur qui suit 
la virgule indique le nosbre 
de seconde de l'intervalle 
Essayer ON TIMER 41,10. 


Toutes les secondes Île 
prograsse Se branche à la 
ligne 30 et effectue les 
instructions jusqu’au RETURN. 


À$ est une variable destinée 
à recevoir du texte. C’est le 
signe $ (dollar) qui est la 
sarque d'une variable alpha. 
KEYS contient une “valeur” 
différente de “* (chaine 
vide) Iorsque l’on vient 
d'appuyer sur une touche. La 
valeur est alors celle 
correspondant à la touche. 
Voir le prograane ?TOUCHE’ 
plus Join. 


8 ( arobasque ) sert à settre 
plusieurs instructions sur 
une ane ligne. 


THEN 20 


ELSE PUT 4$ 


30 DISP 


CHRS (27) 


CHR$ (27) LCHRS (13) 


seule la 


If xxx THEN yyy ELSE 222 5 
l'expression xxx est vraie 
alors exécuter l’ordre yyy 
sinon exécuter 222. 

A$="": À$ est une chaîne vide 
5 on à pas appuyé sur une 
touche (KEY) c.f, plus haut. 


alors (aller à la ligne ) 20 
3 l'ordre de branchesent est 
isplicite. 


Sinon PUT (placer) A$ dans le 
taapon de clavier. Du fait 
que Je programme tourne, 
touche [IGN] est 
active. 
Cependant le 
interne de 
continue à scruter le 
clavier, sais Les touches ne 
sant pas exécutées sauf si le 
prograase BASIC en donne 
l'ordre explicitement corse 
ici. 


programe 
l'ordinateur 


END = fin du prograsse. Il 
peut cependant  cosporter 
encore des lignes. Il peut y 
avoir plusieurs END. 


Ordre d'afficher ce qui suit. 


lire € H R$ de 27, Dans le 
sanuel de référence P 323 et 
suivantes se trouve la liste 
des caractères et de leur 
code. Le caractère de code 27 
est particulier: on le noase 
caractère d'échapesent, ! 

conaence une séquence 
spéciale dite d’échappesent 
destinée à envoyer un ordre à 
un périphérique. { affichage, 
iaprisante ...) 


Page 235 du manuel de 
Putilisateur sont décrites 
les séquences d’échappesent 
pour l'écran (affichage). À 





partir du clavier on peut 
soit effectuer [g) [CTRLI [gl 
CCI CHI ou DISP CHR$(27)& H" 
3 dans un prograsse seule ]a 
2èse solution est possible. 

& lire "et" c’est un "et 
cossercial". I} indique que la 
chaîne se poursuit . Eh! oui 
CHR$tnn) est une chaine de 
caractères {un seul : Ec }. 
Ec 13 (c.F.p 236) replace le 
curseur à gauche de l’écran 
ce qui va provoquer l'écriture 
de la suite par dessus {en 
écrasant) ce qui est déjà à 
l'écran. En  l’occurrence 
l'heure passée. 


exécuté au clavier: donne 
l'heure du nosent sur B 
caractères, & pour les 
chiffres et deux pour les 
séparateurs ?:°. Il s’agit 
encore d’une chaîne alpha ($). 


preniers 
caractères de cette chaine 
& “et comercial" ! 


ñ continue la 
“espace h,espace* 


TIMESCI,21 


prélève les 2 
E 


chaîne avec 


etc. 


$ RETURN fin du sous-prograaae 


père ne pas être trop confus ! 
TOUCHES 


10 AS=KEYS & IF A$="" THEN 19 
20 IF A$="#43" THEN END 
30 DISP À$ € GOTO 10 


Pour - les débutants regardez de près le traitement 
des chaines de caractères: d’une part les eanuels 
ne sont pas très locaces sur ce sujet, et d'autre 
part nous sosses loin des fonctions LEFTS, RIGHTS 
etc. Il faut quelques #inutes pour saisir le 
aécanisse, après quoi vous vous desanderez 
pourquoi cette syntaxe n’est pas isplantée sur 


tous les BASIC. 


Pour les vétérans La réponse n’est ni DELAYO,0 ni 
l'inutilité du RETURN. 11 s’agit d’une erreur qui 
provoque un disfonctionnenent dans un cas 
particulier ! 


Nous attendons votre courrier. 


d.J DHENIN #177 (SIG#S) 


Master-Mind asélioré, 


Rouveau au Club FPC-PARIS, j'ignore si quelqu'un 
a déjà pensé à un programme de Master-Mind 
Ci-joint sea version de ce jeu connu 
L'originalité vient du fait que ce prograsme 
propose des cosbinaisons de lettres ou de 
chiffres; un aêse élésent pouvant Être généré 
plusieurs fois dans une cosbinaison. Les 
instructions ne présentent rien de particulier, 
rien qui ne soit pas utilisé dans les prograees 
de JPC No22 ou 23. 


884 pas de prograsse. 


Aprés [RUNI, le HP derande la taille de la 
cosbinaison, 3 à ? caractères: "Array (3-9)*. Une 
pression sur [ENDLIKET produit une coabinaison de 
$ caractères. 


Il est denandé ensuite le type de ces caractères. 
N: nuaériques (chiffres de © à 9); entrer 
[Drapeau 11. 

N: alphanusériques 
[Drapeau 2]. 

N+N: Lettres et chiffres à la fois; entrer 3 
[Drapeaux 1 et 21. 
Les drapeaux sont là pour rappeler le type de 
cosbinaison présentée par le HP71. 


Uettres de À à 2}; entrer 





Le jeu: 


L'affichage: 
ss... 0&O04! 
ï 13 No du coup joué 
4 Cg] ECTRAL] (6) 
1 Nb de chiffres aal placés 
Nb de chiffres bien placés 
Cosbinaison précédesent entrée (reaplacée par 
des [.] au presier coup). 


On entre la cosbinaison (sajuscules ou ainuscules 
indifféressent), puis LENDLINEI. Si entrée 
excède en taille (la taille choisie au début du 
prograase), le HP sonne et tronque à partir de la 
droite), 

À l'affichage, une fois la coabinaison trouvée: 
“Gare Over (Y/N)" 

Vous avez 5 secondes pour appuyer sur Ÿ ou N. 
Toute pression sur une touche autre que [N] est 
prise pour [Y]. Une pression sur EN] initialise 
une autre combinaison. 


Ce prograone utilisant NINDOW, voici un “truc” 
qui perset d'annuler les effets de cet ordre 
Faire NINDOW 1,1 CENDLINET 

Passer en aode CALC: Cf] CCALC] 

puis revenir en Basic: [f] ICALC] 

L'écran a retrouvé ses 22 colonnes. 


D'autre part, pour ceux qui veulent tricher, R$ 
contient la combinaison à découvrir... 


Renarque: le principe des tests entre l'essai du 
joueur et la cosbinaison de la œachine est basée 
sur la reconaissance, puis l’élisination {dans 
l'essai, le caractère est resplacé par À, dans la 
combinaison de référence par +}, d’où la 
nécessité de deux variables auxiliaires #$ et T$ 
pour ces tests. 


aicalement, 


Xavier BILLE 


DAO (Suite...) 


Lors de la préparation du Stand du Sicob, un des 
jectifs était de présenter des prograanes de 
ration attrayants, et “isplantables*. Mon 
n’est pas aujourd'hui de vous les réveler. 
Hs ne sont pas tous très passionnants à étudier. 
Néansoins, il en est un dont nous reparlerons 
certainesent.… . 
duste un sot quand aëse sur la aanière dont ces 
programmes  fonctionnaient: ils consistaient à 
afficher des pages de texte sur la vidéo (sous 
une foræe plus ou æoins perfectionnée). 
Seul problène: l'afficheur restait vide. I 
failait alors aniser nos LCD chéris. Un des 
programmes faisait défiler à l’écran un TGV 
dessiné par Eric GENGOUX. Je ae suis inspiré de 
son TEV pour faire un petit train rétro. 


Seulesent voilè: aligner une suite de codes 
Hexadécisaux n’est pas pour @e plaire, On est 
feignant, ou on ne l’est pas ! 


Alors, je se suis fabriqué un petit éditeur de 
dessin, afin de faire ce train dans les 
seilleures conditions possibles. 


Brièvement, je vous expose ses caractéristiques: 
Introduction d’un dessin à partir d’un fichier, 
et recopie d’un dessin dans un fichier. 
Déplacesent du curseur en aode trace, où gone. 
Clignotesent du curseur. 

Effacesent ou insertion d’une série de colonnes. 
Positionnesent du curseur à partir de ses 
coordonnées (4,Y). 

Foréage d’un point à 1 ou à 0. 


De plus, une fonction assesbleur  peraet 
d'accélérer notablesent l'exécution. Après vous 
avoir alléché avec 5es caractéristiques, nous 
allons voir son fonctionneent.… 


Tout d’abord, aprés avoir fait [RUNI, le 
prograese vous desande le nos d’un fichier: 
“6-Fichier”. Vous répondez par (ENDLINEI si vous 





n'en avez pas. 


Ensuite, vous avez le curseur clignotant. Essayez 
donc les touches de curseur. 

Maintenant, appuyez sur (/1. L’indicateur [1] 
s’alluse, pour vous signaler que vous êtes en 
aode “gosse”. Déplacez vous avec les touches de 
curseur, et adairez. 

Si vous voulez sauvegarder ce dessin dans un 
fichier, faites (El. Le prograsse vous desande 
alors dans quel fichier vous désirez aettre votre 
oeuvre d’art, 

Si vous faites CENDLINEI, vous pourrez déplacer 
directesent le curseur à une adresse (X,Y) donnée. 
[I] inverse l'affichage. 

{11 ou [0] force le point à l’état allusé ou 
éteint, indépendensent du aode choisi. 

C-1 vous autorise à détruire un certain nosbre de 
colonnes à partir de la position du curseur. Si 
vous n’entrez rien, et faites CENDLINE), aucune 
colonne n’est détruite. 

[+] insère des colonnes à partir de la position 
du curseur. 


Voila pour l’utilisation. Le prograsse lui-nêae 


n’est pas un aodèle de clarté. Les opérations sur 
les fichiers ne sont pas protégées contre les 
fausses maneuvres, 


Voila, dessinez bien... 


A Bientôt, 
Pierre DAVID 


HANTISE SUR SATURNE 


Aais spectrivores, bonjour. 


Ne passez surtout pas à l’article suivant, vous 
risqueriez, coase les aois précédents d’ailleurs, 
de rater le prograsse du siècle. 


Après cette arrivée en fanfare, entretenons un 
peu le suspens. Avouez que vous vous demandez 
bien ce qui va vous tosber sur le tête après le 
compilateur ausical et le débilosètre. Non, ce 
n’est pas un Visicalc, ni aëse un Word star, tout 
ceci ferait bien piètre figure face à ce qui vous 
attend... 

Quelle géniale idée a encore gersé de aon non 
moins génial cerveau ? 


Vous êtes bien assis? 
Tenez-vous bien, c’est un jeu!!! 


À cheval entre le aasteraind et le Hi-Lo, tout le 
onde peut y jouer, que ce soit ceux qui n’ont 
pas cospris coment répondre à la presière 
question du débilomètre, ou ceux qui ont fait un 
INIT 1 à la deuxième, agacés. 


Le tarif de ce aois-ci sera de 9,5Ko. 

Ne vous découragez pas trop vite: sur ces 9,5, 
plus de 5K 5e rentreront autonatiquesent (je le 
précise pour ceux à qui le débilosètre a laissé 
un mauvais souvenir). 

de sexpliquerai plus clairesent plus tard, car 
il faut que je parle du jeu en question, sinon 
ceux qui ne seront pas tosbés en syncope 
passeront à l’article suivant. De plus, je ne 
tiens pas à ae faire égorger par Pierre David, 
car je devine que vous êtes déjà assez nosbreux à 
adresser vos réclamations au Journal. 


Isaginez-vous donc chasseur de fantôses dans un 
labyrinthe hanté. 

Encore un Pac-aan, se direz-vous? Non! 

Tout d’abord, vous n’avez pas de calories à 
avaler, mais des fantôses à désintégrer avant 
qu'ils ne vous tuent, et ensuite, le Labyrinthe 
dans lequel vous vous déplacez vous est visualisé 
en perspective... 


C'est comme si vous y étiez. 


Après vous avoir ais l’eau à la bouche, voici les 
explications: le prograsse principal "FANTOME" 









qui pèse 3K nécessite un fichier TEXT *DISPLAY* 
qui pèse SK. Afin de créer ce fichier TEXT dont 
le Listing est horrible à voir, j'ai fait un 
programe “CRDIS" de 887 octets qui se charge de 
tout. Entrez donc CRDIS, lancez-le, et vous 
aurez, au bout de 6 ainutes votre fichier 
DISPLAY. Vous pourrez alors vous aauser avec 
FANTOXE, 


Appuyez donc sur la fatale touche RUN, et entrons 
dans ce Labyrinthe maudit. 

Le prograsse commence à vous rassurer et à vous 
décontracter en vous msontrant des fantones 
ricanant. 

Buelques secondes plus tard, vous voyez le 
couloir dans lequel vous êtes tombé. Ce couloir 
peut avoir des portes à gauche ou à droite. Je 
vous laisse donc coaprendre l'affichage tout seul. 


Pour le clavier, coasençons par la touche la plus 
inutile: ATIN qui sert à abandonner. 

La touche END LINE sert à actionner le pistolaser 
à rayon cosaique et à variateur béta que j’ai eu 
la gentillesse de vous donner. En général, les 
fantônes n’y résistent pas. 


La touche M vous servira beaucoup, jen suis sûr, 
gour consulter le plan du labyrinthe (vous y 
serez représenté par un point clignotant). 

Pour vous déplacer, vous utiliserez la flêche 
vers le haut pour avancer, et vers le bas pour 
reculer (sans vous retourner, attention). Ce 
n’est pas grave si vous vous cognez contre les 
aurs, le prograsae est assez tolérant. Vous 
pourrez évideasent pivoter sur vous-aêse de 90 
degrés à droite ou à gauche en utilisant 
respectivesent les flèches à droite et à gauche. 
Les autres touches ne servent à rien. 

Voila pour ce qui est du clavier. 





Vous aurez droit à une pression de touche par 
cycle, un cycle représentant un déplaceaent d’une 
case de la part du fantôse. Vous appuyerez sur la 
touche de votre choix après l’affichage du teaps, 
pendant une pause, pour le programe. 

Passons saintenant au plus interressant: le 
fantil 





Vas outils de chasseurs de fantômes sont un plan 
du labyrinthe, un pistolaser à rayon cosaique et 
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à variateur béta qui faut bip quand on appuie 
dessus si le cran de sureté est débloqué et qui 
désintègre les aolécuies de fantôae qui peuvent 
salencontreusesent se trouver dans votre chap de 
vision, et un radar détecteur de fantôse à deux 
tonalités: plus vous êtes près d’un fantôse, plus 
le ‘blip’ qu'il émet est aigü. 

Si vous ne l’entendez pas, rassurez-vous: vous 
n'avez pas grand chose à craindre du fantôme là 
où vous êtes. 

Celui-ci se représentera conse une barre 
verticale au ailieu de votre chasp de vision 
lorsqu'il sera devant vous. 

Lorsqu'il sera derrière vous, je ne donnerai pas 
chèr de votre peau. 
Bien évideasent, il peut surgir par surprise au 
coin d’un croisesent ou d’un virage, ou pendant 
que vous consultez votre plan, ou vous courir 
derrière (rassurez-vous: il est plus rapide que 
vous!)... 

Si vous réussissez à lui tirer dessus, vous le 
verrez se désintégrer, mais un autre fantôae 
viendra le venger... 

Cependant, si le fantôse arrive à vous toucher, 
ce qui est beaucoup plus probable, il absorbera 
tout ce qu’il y a de vivant en vous et vous vous 
anihilerez: votre vue se brouillera, et il ne 
restera plus que votre score pour vous consoler. 





Le labyrinthe se trouve codé en binaire dans les 
DATA de La ligne 90 à la ligne 310, 

Vous pourrez bien entendu le modifier à condition 
de mettre ses disensions à la ligne 20 (X9=23 @ 
Y9=17). 


Le programse utilise le LEX POINTSET (140 octets) 
par sa fonction PSET, Je ne sais pas qui à écrit 
ce LEX, je sais sisplesent qu’il s’est retrouvé 
dans son 71 à la fin d’une réunion du Club. Si 
l’auteur ne s’est pas décidé à le faire paraître 
dans le journal, et si vous n'avez pas ce LEX, 
vous pourrez resplacer les DISP PSET(x,y) par des 
CALL PSET(x,y) car j'ai écrit un SUB équivalent 
en BASIC. C’est plus lent, aais 6a arche. 


Voila, je ne vous ennuierai pas plus longtenps 
avec ses élucubrations sensuelles, je vous 
desanderai Sisplesent de ne pas trop aaltraiter 
ses fantômes et je vous dirai au aois prochain. 





Serge VAUDENAY. 


Note de Pierre David: 

1- de n’ai pas l'habitude d’égorger les gens. 

2- POINISET est de Jean-Jacques MOREAU. Il est 
resplacé par PAINTLEX, paru le sois dernier. 

3- Ce progranse est génial. 





PHASTERP" (Progranne de Haster-Mind amélioré 


- Initialisation 
Entrée de la longueur de la cosbinaison 
À contient cette longueur 
40 INPUT “Array (3-9) 2",°5";8 € IF ACS OR 429 THEN BEEF 1500,.1 & GDTO 10 
- Choix du type de coabinaison. C est ce type 
20 DISP "NEL), "ÉCHAS(AMEON(2), "ECHRS(S)LUNEN(S)"; € INPUT °°, "1950 8 C=MODIC-1,3)#1 
- Initialisation des constantes suivant © 
30 ON C 60TD 40,50,69 
— UV: bornes entre lesquelles CHR$(Z) ne représente pas un chiffre ou une lettre (code 
ASCIT) 
X,Y: bornes ASCII telles que CHRS( 
40 SFLAB 1 @ X=10 8 Y=48 € U=IN 
30 SFLAG 2 © X=28 8 V=65 © 
60 SFLAG 1,2 & X=43 8 Y=48 8 | 


1) représente chiffre ou lettre. 
INF € GOTD *GAME" 
NF © GOTO *GAHE’ 


5 







— Cusbinaisons: — ES 
F: cospte les chiffres bien placés 
6: congte les chiffres sal placés 
I$: Introduction de la cosbinaison du joueur 
RS: cosbinaison source/référence 
T$(214) et H$(2R$) sont des variables sodifiables pour les tests 
5: noabre d'essais 





70 GAME’: DISP “A second..." 8 DESTROY R$,1$,5,F,6 © RANDOMIZE & FOR J=1 10 À 
- di indice de boucie 
Li variable aléatoire 
80 2=IP(RNDI)+Y € IF LOU AND Z€V THEN 80 
- Vérification de La bon 
IChoix 3: éviter les © 
90 RS=RSECHRS (I) 8 It=i$t". 
100 DISP “Ok ! Try and guess: & RAIT 2 
- Jeu: test et intro 4 
110 S=5+1 8 WINDOW 1 & DISP TAB(17); © DISP USINS ’D,"£",D,8,2D°;F,6,7,5 & WINDON 1,18 
- Affichage des résultats (preaier coup: 1$ est remplacé par À points). 
Introduction de 1'Essai 
126 INPUT *",1#;1$ € IF LEN(IS) 4 
130 HS=RS 8 Té=UPRCS(IS) € OY F,6 
140 FOR J=1 TO À € IF T$LJ,J1=W$0J,J] THEN F=F+i € M$[J,J1="+" € T$[9,71="4" 
- Y-a-t-il un chiffre à la bonne place ? 
190 HEXT J 8 IF F=A THEN WIN’ 
160 FOR J=1 TO À 8 P=POS(HS,T#0J,01) 
- Y-a-t-il un chiffre existant, sais aal placé ? 
170 IF P THEN 6=6+#1 & T$[J,J1="4" € WSCP,PI="+" 
180 NEXT J & GOTD 110 
- En cas de victoire... 










THEN BEEP 1500,.1 € I$=1$01,R] 










190 *HIN’: BEEP & NINDOW ! & DISP “Correct in";S;"attespts 
200 WAIT 1 € DISP "Base Over (Y/N)?" @ ON TIMER #1,5 G0TO 220 
210 K$=KEYS © IF K$="" THEN 210 
- Le jeu est-il fini ? Sinon retour. 
220 OFF TIMER #1 @ IF UPRCS(KS$)="N" THEN *GÉME" ELCE CFLAG ALL 8 END 
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JPE n 





5 page 68 


"DESSIN" (Prograsse graphique sur LCD; necessite DESLEX) 


10 DIM F$,5$1132),X,Y,F,N,P © POKE *2F441",°F" € CFLAG 1 

20 INPUT *G-Fichier: ";F$ 

30 IF LEN(FS) THEN ASSIGN #1 TO F$ © READ #1,5$ & GDISP S$ ELSE DISP @ P=PAINT(1,0,0) 
40 X=0 € Y=0 8 5=1 

50 F=5 @ W=PAINT(S,X,Y) € ON TIMER #1,.2 GOSUE 300 

60 P=POS(" 443 438 #47 #48 #50 #51 / LE 104F+-7"," "AUPRES(KEYS)&® *) © IF NOT F THEN 60 
70 1F F€24 THEN P={P#3) DIV 4 ELSE P={P-11) DIV 2 

80 OFF TIMER #1 © N=PAINT(N,X,V) 

90 ON P GOSUE 110,120,130, 140,150, 160,170, 180,20, 190,200,210,230,250, 270 

100 60TO 50 

116 POKE "2F441","0" @ CFLAE 1 € END 

120 S$=6DI5P$ & INPUT *X,Y *,STRS(X)E", *ESTRS(Y);X,Y © GDISP S$ & RETURN 

136 X=X-(H40) 8 GOSUB 280 € BOTO 130 

140 X=X+(X#131) © GOSUE 280 © GOTD 140 

150 Y=Y-(Y#0) € GOSUB 280 @ GOTO 150 

160 V=Y+(Y#7) & GOSUB 280 & GOTO 160 

170 S=FLAG(1,5) € S=NOT FLAG(1) € P=PAINT(S,X,Y) & RETURN 

180 INVERSE € RETURN 

190 W=PAINT(1,X,Y) & RETURN 

200 M=PAINT(0,X,Y) © RETURN 

210 DIN S$[132) @ S$=GDISPS & FOR I=1 TO LEN(SS) 

220 PRINT NUMIS$L11); © NEXT I & RETURN 

230 S$=6DI5P$ & INPUT "No: ";F$ 8 P=FLAG(-1,1) © PURGE F$ @ P=FLAG(-1,P) € CREATE TEIT F$ 
240 ASSIGN #1 TO F$ & PRINT #1:5$ & ASSIGN #1 TO 4 8 GDISP 5$ € RETURN 

250 S$=6DISP$ € INPUT “inserer *,"0";P € G$="" & FOR N=1 TO P 8 G$=G$LCHRS(O) © NEXT N 
260 GDISP S$C1,X-1ILBSLSSIX] @ RETURN 

270 S$=6DISPS € INPUT "Detruire *,"0";P @ GDISP S$[1,X-1J85$[X+P] 8 RETURN 

280 W=PAINT(S,X,Y) © IF NOT KEYDOMN THEN POP 

290 RETURN 

300 F=NOT F @ K=PAINTIF,X,Y) © RETURN 


| 
| 
| 





ÉROONNAENNNNEEENNNNNNNENNEEENANTNNNENNENTNTENSARENENSETENNEENNENNNNNNENNTENENSENEEENNNNNNENSA ENS ENSENNNNERASARATEETNT 
"FANTOME" (Chasse aux fantômes; nécessite POINSET) j 
10 POKE *2F441°,°F° © DEGREES © SFLAG -1+08TRAP{IVL, 2} 


20 DESTROY ALL 8 X9=23 @ Y9=17 @ OPTION BASE 1 @ INTEGER L(19,V9) & DIN A$[264] 
30 FOR 1=1 TO 18 & READ À € A$=ASLCHRS(A) E NEXT I © CHARSET A$ 





40 DATA 254,247, 255,247, 254,0, 62, 243,255, 243,62,0,56,70,9,70,56,0 





50 DISP CHRS(129)&" &CHRS(128)8"  Fant’&CHRS(130)&'aes *ECHRS(128)8" ?ECHRS(129) | 
60 FOR 1=1 TD 5 @ BEEP 40,.3 © WAIT .15 @ NEXT I À 
70 FIS=CHRS(129) 8 F2$=CHR$(128) € FIS=FISLFISRFISRFISLFIS © F28=F28LF28LF26LF2SLF2S | 
80 READ L{,) & DELAY .2 





120 DATA 
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210 DTA 1, 
220 HT 1, 
230 DTA 1, 


240 DAT 1,0 
270 BTS 1,0 
280 DATR 1,0 
290 DATE 1,0 
300 DATA 1,0 
310 478 1,1 





326 ASSIEN #1 TO DISPLAY 
330 TI=8 6 1=2 € Y=2 & A=0 @ T=TIME & KINDON 11 
340 KIFIRNDE(X9-2142) 8 VS=IPIRNDS(Y9-2)+2) € IF (XS-X)#2#(Y5-Y) 9218 OR LÜNS,Y5) THEN 340 





350 *MSTER’: CALL DSPiL(,),X,Y,A,A$,#1,6) 

360 IF I=XS AND Y=YS THEN 600 

370 E-X5-SGNIXS-X) € C=YS-SEN(YS-Y) 

380 1F BND#2)1 AND LIB,C)=0 THEN X5=B & VS=C € GOTO 400 

390 1F LENS, C)=0 AND CHYS THEN Y5=C ELSE IF LUE, Y5)=0 THEN X5<E 


AGO IF 3-15 AND Y=YS THEN 600 

#10 EUX) "25 (Y5-Y) "2 

420 GBISF À$ 

430 F=SBNIXS-Y)=COS(A) AND SGNIYS-V)=SIN(A) AND DC17 AND 6*23=D € IF F THEN GOSUE *FHAN° 








440 DISP STRSCIP((TINE-T)/60))&*°"&TI$ € BEEP 504((D<9)+#l 1,.05 
450 K=0 
460 K&HEYS € K & IF K<40 ARD K$=7* THER 460 





470 ON FOSC #47RABASONS 
480 C=1 € IF Y>7 THEN C= 
490 E=1 6 IF X)120 THEN E=X-66 

500 CAL DISLAB(L(,),E,C,X9) 

310 Af-6DISPS € DISP PSET(Y-E,Y-C) & A$[133]=G6DISPS 

20 FER 1=1 TO 200 € GDISF A$[1332H0D(1,2)3 & NEXT I 

530 G6OTD *HASTER* 

S40 A=4-30 € GOTO "HASTER* 

590 #4490 & GOTO MASTER’ 

66 B=H#IP(COS(A)) 8 C=V#IP(SIN(A)) 8 IF L(B,C) THEN “MASTER ELSE X=B € 
570 E-I-IP(COS(R)) € C=Y-IF(SIN(A)) & IF L(B,C) THEN "MASTER ELSE J=B € Y 
380 BEEF 5000,.1 6 BEEP 100,.05 8 IF NOT F THEN “MASTER” 

390 CAL OK € T1=T1#1 € T1$=F1810,1P(T1/5)18F2810,MOD(T1,5)] & GOT 346 
&0G T=TIME-T © BEEP 25,1 

610 CALL LOST 

620 WINEGN 1 © DISP STRS(TI)E" fant'£CHRS(I3O)Eee"; E IF T13{ THEN DISF *s°; 
630 DISP ” en *£STRS{IPIT/60))E"? "ESTRS(100+IPINOD(T,60)))12387** € DESTROY ALL 
640 POKE *2F441°,°0" € END 

650 T=TIME-T € GOTD 620 





3BB43M" ,UPRCS(KS))/3+1 G0TD “MASTER” ,540,550,560,570, 580, 650, 480 





-4 


C € GOTO MASTER 
C & 6OTO “MASTER” 






6b0 ?PHEN H$(2*(10-2160R(D))-1) € RS=ASCSIRASC4,47 & POFE *2E124,ASEAS € RETURN 
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670 SUB DSFIL(,),X,Y,A,E$,81,6) 
680 DO=IP(COS{A)) © DI=IP(SIN(A)) 


690 X1=X-IP(SIN(A)) € +1P (COS (A) 

700 X2=X#IPISIN(A)) @ V2=Y-IP(COS(A)) 

710 D$=STR$(L(X,Yi=1)&" 1111111114" 8 IF LUX,Y) THEN 780 

720 FOR 1=0 70 2 

730 DSE5+#1,5+1I=STRS(L(X1+I4D0, YI+14D1)=1) 

740 D$[8+1,8+1]=STR$(L(N2+14D0, Y2+14D1)=1) 

750 F=L(N+(1+#1)4D0,Y+(1#134D1)=1 

760 DSCI+2,1+21=STR$(F) © IF F THEN 1=5 

770 NEXT 1 

780 ON 1+#VAL{D$L3,32)#VAL(D$2,21)#VAL(DSI 1,11) GOTO 790,810,820,830 

790 B=VAL(DSL101)+24VAL(DS9,911+4VAL(DSLB, 87) #B4VAL(D#L7,71)#164VAL (D$C6,61)+324VAL (DSC, 57) 
B00 B=B+644VAL(D$C4,4]) © 6=4 8 GOTD 840 

810 B=VAL(D$L9,91) +24 VAL (DSLE, 81) +4VAL(DSL6,67)+B4VAL(DSES,511+128 8 6=2 8 BOTO 840 
820 B=VAL(D$(8,81)+24VAL(D$(5,57)+144 8 6=1 € GOTO 840 

830 B=148 € 6=0 

840 RESTORE #1,B € READ #1;E$ 








850 SUB DISLABIL(,),A,B, 19) | 
860 GDISP *” © FOR X=A TD MIN(A+131,19) € FOR Y=B TO B+7 ; 
870 IF LUX,Y) THEN DISP PSET(X-A,Y-B) } 
880 NEXT Y & NET X Î 
890 END SUE î 





909 SUB LOST 
910 DIN 118) € READ It) | 
920 R=RND € DATA 1,5,0,7,6,3,2,4 | 
930 FOR 4=1 TO 8 & RANDOMIZE R 6 FOR X=0 TO 33 € DISP PSET(X,NODEIP (RND#B) #1 (A), 8)) 

940 NEXT X & NEXT À | 





950 SUB DE 
960 FOR 1=5000 TO 1000 STEP -1000 8 READ À & POKE *2E124°,DTH$(A)[21 8 BEEP 1,.05 8 NEXT 1 





970 DATA 65535, 30702, 21930, 4488,0 





980 BEEP 100,.5 





990 SUB PSET{X, Y) 
1000 A=NUMIGDISPSEX+11) @ A=2"Y#HOD(A,2°V)+2* (Y+1)#IP(A/2* (V4) 
1010 GDISP GDISP#LO, XIBCHRS (A) KEDISPSEX+21 


SUREUESENANAENNNENNENNNNNNNNNENENNNENNNNENEENNENNNNNSTRANNNNTNNNNNAN SN NNNNNENEAENNNENNNNTENEANNENNNNNENENNNNNENEENNNEEANRENS 





“CRDIS” (A utiliser avec “FANTOME"; voir article) 


10 CALL CRF 





20 SUB TOD(D$,E$) & DELAY 0,0 JPC nr25 page 71 


30 DEF FNF(D$,A)=VAL(DSCA, AD) 








40 DEF FRS (A)=CHRS (A) SCHRS A) 






sl D$,1) & C-FNFIDS,2) E D=FNF(D$,3) € 
&û Ef=FNG6 (255) &FNG$ (1274FNF (D$,8)+1284E) BFNGS (63+1924E) BFNGS (SL4FNF (DS, 9)+324C+1922E) 
70 Et=EStFNGS (154480419248) LFNGS (TAFNF (DS, 10)+B40+484C+1924E) BFNE (S+124D+484C+1924B) 
80 Ef-ESLFNG#(3IE+12#D+484C+1921B) 

90 Ef=ESLESCISIRELISILEST13, L4JEFNGS7AFNF (DS, 7) +84D+481C+1924H) LES C9, 101 

100 ES=ESEFNSS (3LAFNF (DS ,8)+3240+1924H)LESTS, 6JLFNGS (1274FNF (Dé, 5)+1281H) LFRGS (255) 





110 SUB DECBIN(D,B$) 

120 E$="° € C=D € FOR A=1 T0 8 

130 C=C/2 & IF FPIC) THER B$="1'4B$ ELSE Bé="0"£B$ 
140 C=IPIC) € NEXT À 





150 SUB CRF € CREATE TEXT DISPLAY 

180 ASSIEN #1 TO DISFLAY € DIM E$[341 

170 FOR &=0 T0 127 

180 CALL DECBIN(A,D$) € D$="00"£D$ 8 GOSUE 300 
190 DISF À & NET À 

200 FOR A=0 TO 15 


CALL DECHIN(A,D$) 
D$="0011”2DSI5, 614" 1'4D$I71&" 1? E GOSUB 300 
HEXT À 

240 D$=*0111011011* € GOSUB 300 

250 D$=’0111011114" € GOSUE 300 

266 2$="0111111011° € GOSUE 300 

270 D$=’0111111111* € EOSUB 300 

280 D$=’1111111111" € GOSUB 300 

290 END 


2 
2 

















300 CALL TOD(DS,E$) 
310 PRIRT #15E$ 
320 RETURN 
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HEWLETT 
PP PACKARD 


HEWLETT-PACKARD FRANCE : S.A. eu cepitel de 25000000 de Francs régle par les erticles 118 A 150 de la lol eur les soclétés 
commerciales - R.C-S. Corbeil-Essonnes : B 7098050%0. 


SIÈGE SOCIAL : Perc d'ectivité du Bols Brierd - 2. Avenue du Lec - 91040 EVRY CEDEX - Tél. (6) 07.83.83 - Telex 692315 F 


Dans le cadre de sa campagne générale BACK TO SCHOOL, 
HEWLETT PACKARD, pour aider ses partenaires, lance une 
grande promotion. 


Pour chaque achat de HP 41 CV, le client recevra gratuitement un 
module mathématique ; 


Pour chaque achat de HP 41 CX, le client recevra gratuitement un 
module mathématique et un module statistique. 


Date : du ler Juillet au 30 Septembre 1985 
chez tous les distributeurs agréés Hewlett Packard. 


DEPECHEZ-VOUS, LES QUANTITES SONT LIMITÉES 1... 
DEMANDEZ VOTRE "HP 41 PROMOTION" 
HEWLETT_PACKARD_ACTUALITE 





Nouveau Produits : 


Pour HP 71 : Module AMPI STATISTIQUE Réf. : 82489 À 
Translator Pac Réf. : 82490 A 
Datacom Réf. : 82488 À 


Nouveaux Manuels : 


- Enfin la HP 41 CV à son "manuel d'utilisation et fonctionnement 
en détail" en français : 
Edition Janvier 1985 
Réf. : O0D41 - 90533 


- Pour la HP 71 
5954 - 1278 : Manuel de Contrôle et d'acquisition de données 
par la HP 71 en anglais 


Comprenant : 5954 - 1241 (voir cadre ci-dessous) ; 






1241 HP.71 Instrument Control Systems 
brochure 


5954-1268 HP.71 to HP 3000 and HP 1000 
File Transfers 

5054-1274 HP.Z1/HP Touchscreen and 
HP.T1/HP 2392 Terminal 
Development Station 


- Pour la HP 75 
5954 - 1248 : Manuel traitant de la saisie de donnée électronique 
sur la productivité et fiabilité des données. 
comprenant : 5954 - 1239 (voir cadre ci-dessous) 


5954-1239 HP.75D Data Collection Systems 
brochure 

5954-1142 HP.75 to HP 3000 and HP 1000 
File Transfers 


5953-5657 HP.75D Bar Code Reading System 
Rev. A 


5954-1247 Field Service Application 
Description 
5954-12HD (P.75D Date Collection Price List 


LE TOUT EST DISPONIBLE CHEZ VOTRE DISTRIBUTEUR AGREE HP. 


3 ER FARIS CHAPF TER 





ASSOCIATION REGIE FAR LA LOI DE 1901, ENREGISTREE 
À FARIS LE 2 DECEMERE 1982 SOUS LE NUMERO 82/3240 


EULLETIN D° ADHESION 


MATIQUE 








COMMENT AVEZ-VOUS CONNU FFC FARIS CHAFTER 
FUBLICITE 
AUTRE CLUE 
REL£ATIONS, 









G 





DU CLUE 


QUE RECHERC VOUS AU SEIN DU FFC FARIS CHAFTER 7 








rer au club FFC FARIS CHAFTER conformément aux statuts de 
de ma connaissance, je déclare avoir le droit de fournir 
rogrammes et informations que je vous enverrai (sans enfreindre des 

Lions de cret à 1° rd d'autres personnes où organismes) pour 
publication dans le journal de liaison, sans obligations ni responsabilité 
d'aucune sorte (en ces d'utilisation frauduleuse) de la part des dirigeants du 
FFC FARIS CHAFTER. 





Je souhaite adhé 









DATE !_!_t/1_1_!/191 12: 


SIGNATURE, FRÉCEDEE DE LA MENTION "LU ET AFFROUVE" 





LE MONTANT DE LA COTISATION AU FFC FARIS CHAFTER S°ELEVE A 200.00 FF. 
ETUDIANTS: 259.00 FF. (JUSTIFICATIF INDISFENSABLE) 
FAIEMENT EFFECTUE LE !_1_1/1:_1 1/19!!! A L'ORDRE DE FFC FARIS CHAFTER. 
FAR LC 1 CHEQUE BANCAIRE N° BANGUE 
Ê 3 ÉDEQUE FOSTAL S MBLÉTS NP ue de put de de eue ee 
[ 1 MGNDAT LETTRE 
EVENTUELLEMENT: JE M°ABONNE À COMFTER DU !_1_!/1_1t_1/191 121 
JOINDRE À VOTRE INSCRIFTION UNE FHOTO D°IDENTITE ET UNE ENVELOFFE TIMBREE A 


VOTRE ADRESSE. 
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VEUILLEZ ENVOYER TOUTE CORRESPONDANCE a: 
MR FHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 FARIS (FRANCE) 


Le journal J.P.C. est un bulletin de 
liaison entre ies nenbres de 
l'association loi de 1901 PPC.P.C.. Le 
club est éditeur du J.P.C. et son siège 


est au 56 rue Jean-Jacques Rousseau — 
75601 PARIS. 





Directeur de ia publication: Philippe GUEZ 

Numéro d'ISSN: 0762 - 381Xx 
o 
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